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1.  Scope. 

1.1.  Identification. 

This  SDD  applies  to  document  number  WDL/TR92-003011  entitled  System 
Specification  for  the  Rotary  Wing  Aircraft  AirNet  Aeromodel  and  Weapons 
Model  Conversion.  This  SDD  also  applies  to  the  AirNet  CSCI. 

1.2.  System  overview. 

The  Rotary  Wing  Aircraft  (RWA)  system  and  SIMNET  Computer  System 
Configuration  Item  (CSCI)  simulates  a  manned  flight  vehicle  and  associated 
weapons  systems  for  conducting  simulated  missions  within  a  controlled 
database  and  tactical  environment. 

1.3.  Document  overview. 

The  following  paragraphs  and  subparagraphs  identify  the  purpose,  structure, 
and  design  of  the  Computer  Software  Unit  (CSU)  modified  under  the  Rotary 
Wing  Aircraft  AirNET  Aeromodel  and  Weapons  Model  Conversion  Delivery 
Order.  Computer  Software  Components  (CSC)  and  CSUs  existing  in  original 
code  are  not  documented  herein.  The  original  function  and  operation  of  the 
software  was  not  modified.  Certain  CSUs  were  modified  to  allow  the  reading 
of  data  values  from  data  files.  This  additional  capability  allows  for  the  change 
of  variables  without  requiring  a  recompile.  In  addition,  software  control  was 
added  to  the  CSCI  to  allow  control  of  the  hardware  enabling  and  disabling 
simulated  radio  communications.  The  modifications  to  the  MCC  is  covered 
in  a  separate  volume. 
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2.  Referenced  documents. 

The  following  documents  are  referenced  within  this  document. 

WDL/TR-92-003011  SYSTEM  SPECIFICATION  FOR  THE 

ROTARY  WING  AIRCRAFT  AIRNET 
AEROMODEL  AND  WEAPONS 
MODEL  CONVERSION,  6  JUNE  1992. 


3.  Preliminary  design. 

The  preliminary  design  of  the  RWA  system  and  SimNET  CSCI  was 
done  previously.  This  delivery  order  used  the  original  design  as  the 
baseline  for  the  modifications  made  here.  The  following  paragraphs 
and  subparagraphs  briefly  describe  the  CSCI  design  and  relationship 
to  the  modified  CSUs.  Tlie  CSUs  are  documented  in  Paragraph  4.  - 
Detailed  design. 

3.1.  CSCI  overview. 

The  RWA  CSCI  simulates  the  rotary  wing  aircraft  and  its  weapon  systems 
within  a  defined  environment.  The  function  of  the  CSCI  was  not  altered  and 
is  not  detailed  here. 

3.1.1.  CSO  architecture. 

The  RWA  CSCI  architecture  was  not  altered.  Certain  CSUs  used  to  initialize 
parameters  for  performance  and  radio  communication  control  were 
modified.  The  aeromodel  and  weapon  models  were  modified  for  reading 
initial  performance  and  configuration  values  from  data  files.  An  abbreviated 
AirNet  Call  Tree  Structure  is  included  in  Appendix  A  for  reference. 

3.12.  System  states  and  modes. 

The  system  states  and  modes  for  operation  and  execution  were  not  modified. 
Software  control  using  a  hardware  modification  was  added  to  control  radio 
communications  availability. 

3.1.3.  Memory  and  processing  time  allocation. 

The  memory  and  processing  time  was  not  computed  nor  were  estimated 
allocations  made.  The  additional  processing  time  occurs  during  input  from 
data  files  during  initialization,  and  does  not  impact  the  real-time  execution 
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frame  times.  The  real-time  simulation  is  executed  at  15  hertz  frame  rate  for 
the  majority  of  the  functions. 

3.2.  CSO  design  description. 

The  following  subparagraphs  indicate  the  call  hierarchy.  Design  details  for 
original  code  is  not  documented  herein. 

3.2.1.  CSC  simulation_state_machine. 

After  system  configuration  initialization,  this  CSC  controls  the  initialization, 
idle  state,  run  state,  and  stop  state  of  the  simulation.  This  CSC  existed  in  the 
original  code  and  is  not  documented  herein. 

3.2.1.1.  Sub-level  CSC  io-simul. 

This  CSC  controls  the  state  of  the  input/output  function  during  simulation. 
This  CSC  e;asted  in  the  original  code  and  is  not  documented  herein. 

3.2.1.1.1.  Sub-level  CSC  process_a_packet. 

The  CSC  connotes  the  processing  of  input/output  packets.  This  CSC  existed 
in  the  original  code  and  is  not  documented  herein. 

3.2.1.1.1.1.  Sub-level  CSC  do_protocol_on_sim_packet. 

This  CSC  existed  in  the  original  code  and  is  not  documented  herein. 

3.2.1.1.1.1.1.  Sub-level  CSC  process_indirect_fire. 

This  CSC  existed  in  the  original  code  and  is  not  documented  herein. 

3.2.1.1.1.1.1.1.  Sub-level  CSC  failure_check_indir_fire_damages. 

This  CSC  existed  in  the  original  code  and  is  not  documented  herein. 

3.2.1.1.1.1.1.1.1.  Sub-level  CSC  fail_vehicle_is_destroyed. 

This  CSC  controls  the  radio  availability.  This  CSC  existed  in  the  original  code 
and  is  not  documented  herein. 

3.2.I.2.  Sub-level  CSC  veh_spec_idle. 

This  CSC  controls  the  vehicle  simulation  during  idle  state.  This  CSC  existed 
in  the  original  code  and  is  not  documented  herein. 

3.2.1.2.1.  Sub-level  CSC  io_simul_idle. 
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This  CSC  controls  the  input/output  simulation  during  idle  state.  This  CSC 
existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.2.1.1.  Sub-level  CSC  process_a_packet. 

This  CSC  existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.2.2.  Sub-level  CSC  keyboard_simul. 

This  CSC  controls  the  radio  availability.  During  initialization  this  CSC 
controls  radio  initialization.  This  CSC  existed  in  the  original  code  is  and  not 
documented  herein. 

3.2.1.2.2.1.  Sub-level  CSC  controls_restore_controls. 

This  CSC  existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.2.2.1.1.  Sub-level  CSC  controls_sim_init. 

Tiiis  CSC  initializes  the  radios  availability.  This  CSC  existed  in  the  original 
code  is  and  not  documented  herein. 

3.2.1.2.2.2.  Sub-level  CSC  faiLcaLkill. 

This  CSC  existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.2.2.2.1.  Sub-level  CSC  fail_vehicle_is_destroyed. 

This  CSC  controls  radios  availability.  This  CSC  existed  in  the  original  code  is 
and  not  documented  herein. 

3.2.1.2.2.3.  Sub-level  CSC  altjnit 

This  CSC  existed  in  the  original  code  is  and  not  documented  herein. 
3.2.1.2J2.3.1.  Sub-level  CSC  alt_new_height_is. 

This  CSC  existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.2.2.3.1.1.  Sub-level  CSC  faiLcat.kill. 

This  CSC  existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.3.  Sub-level  CSC  veh_spec_init. 

This  CSC  controls  the  initialization  of  the  vehicle,  including 
communications,  aeromodel  and  weapon  models.  This  CSC  existed  in  the 
original  code  is  and  not  documented  herein. 
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3.2.1.3.1.  Sub-level  CSC  conlrols_siin_init. 

This  CSC  controls  the  initialization  of  the  vehicle  cockpit  controls.  This  CSC 
existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.3.1.1.  Sub-level  CSC  controls_radios_init 

This  CSC  initializes  the  radio  controls  and  availability.  This  CSC  existed  in 
the  original  code  is  and  not  documented  herein. 

3.2.1.3.2.  Sub-level  CSC  rwa_init. 

This  CSC  initializes  the  performance  characteristics  and  physical 
configuration  of  the  vehicle  and  its  weapons.  This  CSC  existed  in  the  original 
code  is  and  not  documented  herein. 

3.2.1.3.3.  Sub-level  CSC  weapons_init 

This  CSC  initializes  the  weapons  for  the  vehicle  configuration.  This  CSC 
existed  in  the  original  code  is  and  not  documented  herein. 

3.2.1.3.3.1.  Sub-level  CSC  hydra_init. 

This  CSC  initializes  the  hydra  rockets.  This  CSC  existed  in  the  original  code  is 
and  not  documented  herein. 

3.2.1.3.4.  Sub-level  CSC  alt_init. 

This  CSC  initializes  the  vehicle  for  the  altitude.  This  CSC  existed  in  the 
original  code  is  and  not  documented  herein. 

3.2.1.4.  Sub-level  CSC  veh_spec_simulate. 

This  CSC  controls  the  real-time  simulation  state.  This  CSC  existed  in  the 
original  code  is  and  not  documented  herein. 

3.2.1.4.1  Sub-level  CSC  keyboard.simul. 

This  CSC  controls  the  radio  availability.  During  the  real-time  simulation  this 
CSC  connotes  the  radio  state.  This  CSC  existed  in  the  original  code  is  and  not 
documented  herein. 
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4.  Detailed  design. 

The  following  paragraphs  and  subparagraphs  describe  the  detailed 
design  of  each  CSC  and  CSU. 

4.1.  CSC  rwa_init. 

This  CSC,  rwa_init,  controls  the  initialization  of  the  rotary  wing  aircraft 
models,  i.e.,  aeromodel,  kinematics  model,  and  engine  model.  The  structure 
and  function  of  this  CSC  was  not  modified  under  this  delivery  order.  The 
following  subparagraphs  describe  the  design  information  for  the  modified 
CSUs  called  by  this  CSC. 

4.1.1.  CSU  engine_init. 

The  CSU  engine_init  reads  engine  data  from  data  files  and  initializes  the 
engine  operating  and  performance  parameters,  limitations,  initial  dynamic 
state,  and  engine  status.  The  following  subparagraphs  describe  the  design 
information  for  the  CSU  engine_init. 

4.1.1.1.  CSU  engine_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.1.1.2.  CSU  engine_init  design. 

The  CSU  engine_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  enginejnit.  For  a  complete  listing,  see  Appendix  C  -  Source  Code 
Listing  For  rwa_engine.c. 

a.  Input/output  data  elements.  None  used. 

b.  Local  data  elements.  TABLE  4.1. 1.1  -  CSU  ENGINE.INIT  LOCAL 
DATA  DEFINITION  TABLE  describes  the  local  data  elements 
originating  in  the  CSU  enginejnit  and  not  used  by  any  other 
CSU. 
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TABLE  4.1.1.1  -  CSU  ENGINEJNIT  LOCAL  DATA  DEFINITION  TABLE 


Name 

i 

Description 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent- 

decimal 

decimal 

real  number 

character 

directory 

ation 

number 

number 

string 

pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Non- 

dimensional 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

1  Precision 

^Esmm 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  engine_init. 

(1)  An  algorithm  to  read  engine  default  performance  data 
from  the  "simnet/data/rwa_engn.d"  data  file  is  executed. 
This  data  determines  the  performance  characteristics  of 
the  engine  during  real-time  execution.  Access  of  the  file  is 
"read  only". 

The  "simnet/da^a/rwa_engn.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  engine_data  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
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and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  engine  default  initialization  data 
from  the  "simnet/data/rw_en_in.d"  data  file  is  executed. 
This  data  determines  the  initial  dynamic  state  of  the 
engine  prior  to  real-time  execution.  Access  of  the  file  is 
"read  only". 

The  "simnet/data/rw_en_in.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  engine_init_data 
element.  The  remainder  of  the  record  is  assigned  to  the 
temporary  character  string.  The  array  index  is 
inaemented  by  one  and  the  next  record  is  scanned.  If  the 
value  of  the  temporary  float  data  is  the  end-of-file,  the  file 
is  closed. 

(3)  An  algorithm  to  read  engine  default  status  data  from  the 
"simnet/data/rw_en_st.d"  data  file  is  executed.  This  data 
determines  the  initial  state  of  the  engines  prior  to  real¬ 
time  execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/rw_en_st.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  integer  data  storage.  If  the  value  of  the 
temporary  integer  data  is  not  the  end-of-file,  the 
temporary  integer  data  is  assigned  to  the  current  indexed 
engine_stat_data  element.  The  remainder  of  the  record  is 
assigned  to  the  temporary  character  string.  The  array 
index  is  incremented  by  one  and  the  next  record  is 
scanned.  If  the  value  of  ^e  temporary  integer  data  is  the 
end-of-file,  the  file  is  closed. 
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e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 

handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 

standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 

engine_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  fail_init_failure.  This  CSU  initializes  a  failure  of  the 
engine  or  its  subsystems.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(8)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  enginejnit.  These 
variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

gov_p_gain 

gov_i_gain 
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engine_power 

engine_percent_torque 

engine_speed 

integrator_gain 

last_percent_shaft_speed 

Iast_percent_torque 

hours_of_flight 

minutes_of_flight 

old_minutes_of_flight 

engine_status 

starting_engine 

number_of_engines 

engine_is_damaged 

transmission_is_damaged 

h.  Logic  flow.  The  CSU  engine_init  is  called  by  the  CSU  rwa_init. 

See  Appendix  A  -  RWA  AirNet  Call  Tree  Structure.  Execution 

of  the  CSU  enginejnit  is  normally  done  only  once  during  CSCI 

initialization  and  is  performed  sequentially. 

Open  engine  performance  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

engine_data[indexl=first_field 
descript=second_field 
increment  index  by  one 

End  while. 

Close  data  file. 

Open  engine  initialization  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

engine_init_data(index]=first_field 
descript=second_field 
increment  index  by  one 

End  while. 

Close  data  file. 

Open  engine  status  data  file. 

If  file  is  null,  print  error  message  and  exit. 
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Rewind  file. 

Set  index=zero. 

While  record  not  end-of-file, 

engine_s  ta  t_da  ta  [index]  =f irs  t_f ield 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  gov_p_gain=engine_data[l] 

Set  gov_i  gain=engine_data[2] 

Set  engine, power=engine_init_datatO] 

Set  engine_per cen t_torque=engine_ini t_da ta  [  1  ] 

Set  engine_speed=engine_init_data  [2] 

Set  integrator_gain=engine_init_data[3] 

Set  last_percent_shaft_speed=engine_init_data[4] 

Set  last_percent_torque=engine_init_da  ta  [5] 

Set  hours_of_flight=engine_init_datal6] 

Set  minutes_of_flight=engine_stat_data[0] 

Set  old_minutes_of_flight=engine_stat_data  [1] 

Set  engine_status=engine_stat_data[2] 

Set  star ting_engine=engine_stat_data  [3] 

Se  t  n  umber_of_engines«engine_s  ta  t_da  ta  [4] 

Set  engine_is_damaged«engine_stat_data[5l 
Set  transmission_is_damaged=engine_stat_data[6] 

If  combat_damage=TRUE, 

Call  fail_init_failure  for  engine_oil_damage 
Call  fail_init_failure  for  break_engine 

End  if. 

If  stochastic_failure=TRUE, 

Call  fail_init_failure  for  transmis_filter_damage 
Call  fail_init_failure  for  break_transmission 

End  if. 

Data  structures.  The  following  shared  data  struchires  are  used  by 
the  CSU  enginejnit. 

(1)  Data  structure  engine_data.  This  shared  data  structure' 
holds  the  performance  data  defining  the  operating 
limitations  of  the  engines.  The  data  structure  is  an  array 
of  20  elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
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each  element  is  described  in  TABLE  5.1.5.  -  ENGINE 
DATA  ARRAY. 

(2)  Data  structure  engine_init_data.  This  shared  data 
structure  holds  the  dynamic  initialization  of  the  engines. 
The  data  structure  is  an  array  of  10  elements.  The  data 
structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.6.  -  ENGINE  INITIALIZATION 
DATA  ARRAY. 

(3)  Data  structure  engine_stat_data.  This  shared  data 
structure  holds  the  status  data  describing  the  operating 
state  of  the  engines.  The  data  structure  is  an  array  of  10 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.7.  -  ENGINE 
STATUS  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  engine_init. 

(1)  Data  file  "simnet/data/rwa_engn.d".  This  data  file 
includes  the  performance  characteristics  of  the  engine. 
The  data  file  consists  of  a  maximum  of  20  records.  Each 
record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  engine.data  global  array. 
These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.5.  -  ENGINE  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only.  Access  of  the  file  is  "read  only"  and  sequential. 

(2)  Data  file  "simnet/data/rw_en_in.d".  This  data  file 
includes  the  initial  dynamic  state  of  the  engine.  The  data 
file  consists  of  a  maximum  of  10  records.  Each  record 
consists  of  two  fields.  The  first  field  is  a  float  number,  and 
the  second  field  is  a  character  string  of  a  maximum  length 
of  64.  The  first  field  is  assigned  to  sequential  elements  of 
the  engine_init_data  global  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.6.  -  ENGINE  INITIALIZATION  DATA 
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ARRAY.  The  second  field  is  for  documentation  purposes 
only.  Access  of  the  file  is  "read  only"  and  sequential. 

(3)  Data  file  "simnet/data/rw_en_st.d".  This  data  file 
includes  the  initial  state  of  the  engines.  The  data  file 
consists  of  a  maximum  of  10  records.  Each  record  consists 
of  two  fields.  The  first  field  is  a  float  number,  and  the 
second  field  is  a  character  string  of  a  maximum  length  of 
64.  The  first  field  is  assigned  to  sequential  elements  of  the 
engine_stat_data  global  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.7.  -  ENGINE  STATUS  DATA  ARRAY.  The  second 
field  is  for  documentation  purposes  only.  Access  of  the 
file  is  "read  only"  and  sequential. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU  enginejnit. 

4.1^.  CSU  aerod3m_init. 

The  CSU  aerodynjnit  reads  aerodynamics  data  from  data  files  and  initializes 
the  aerodynamics  operating  and  performance  parameters,  limitations,  initial 
dynamic  state,  and  aerodynamics  status.  The  following  subparagraphs 
describe  the  design  information  for  the  CSU  aerodynjnit. 

4.1.2.1.  CSU  aerodyn.init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.1.2.2.  CSU  aerodyn.init  design. 

The  CSU  aerodyn_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  aerodyn_init.  For  a  complete  listing,  see  Appendix  B  -  Source 
Code  Listing  For  rwa_aerodyn.c. 

a.  Input /output  data  elements.  None  used. 

b.  Local  data  elements.  TABLE  4.1.2.1  -  CSU  AERODYN_INIT 
LOCAL  DATA  DEFINITION  TABLE  describes  the  local  data 
elements  originating  in  the  CSU  aerodynjnit  and  not  used  by 
any  other  CSU. 
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TABLE  4.1.2.1  -  CSU  AERODYNJNIT  LOCAL  DATA  DEFINITION  TABLE 


Name 

i 

i 

fp 

Description 

array  index 

array  index 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

file  pointer 

Represent- 

decimal 

decimal 

real  number 

character 

directory 

ation 

number 

number 

string 

pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Non- 

dimensional 

Variable 

None 

None 

0-99 

0-99 

Variable 

N/A 

N/A 

Precision 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  aerodyn_init. 

(1)  An  algorithm  to  read  aerodynamics  default  performance 
data  from  the  "simnet/data/rwa_aero.d"  data  file  is 
executed.  This  data  determines  the  performance 
characteristics  of  the  aerodynamics  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/rwa_aero.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  aero_data  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 


-14- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 

and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  aerodynamics  default  initialization 
data  from  the  "simnet/data/rw_ae_in.d"  data  file  is 
executed.  This  data  determines  the  initial  dynamic  state 
of  the  aerodynamics  prior  to  real-time  execution.  Access 
of  the  file  is  "read  only". 

The  "simnet/data/rw_ae_in.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  aero_init  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  aerodynamics  default  simple  data 
from  the  "simnet/data/rw_ae_sp.d"  data  file  is  executed. 
This  data  determines  the  performance  characteristics  of 
the  "simple"  aerodynamics  model  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/rw_ae_sp.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  integer  data  storage.  If  the  value  of  the 
temporary  integer  data  is  not  the  end-of-file,  the 
temporary  integer  data  is  assigned  to  the  current  indexed 
aero_simple  element.  The  remainder  of  the  record  is 
assigned  to  the  temporary  character  string.  The  array 
index  is  incremented  by  one  and  the  next  record  is 
scanned.  If  the  value  of  ihe  temporary  integer  data  is  the 
end-of-file,  the  file  is  closed. 
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(4)  An  algorithm  to  read  aerodynamics  default  stealth  data 
from  the  "simnet/data/rw_ae_sl.d"  data  file  is  executed. 
This  data  determines  the  performance  characteristics  of 
the  "stealth"  aerodynamics  model  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/rw_ae_sl.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  integer  data  storage.  If  the  value  of  the 
temporary  integer  data  is  not  the  end-of-file,  the 
temporary  integer  data  is  assigned  to  the  current  indexed 
aero_stealth  element.  The  remainder  of  the  record  is 
assigned  to  the  temporary  character  string.  The  array 
index  is  incremented  by  one  and  the  next  record  is 
scanned.  If  the  value  of  the  temporary  integer  data  is  the 
end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
aerodyn_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 
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(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  engine_init.  This  CSU  initializes  the  engine 
functions  and  its  subsystems.  This  CSU  is  documented  in 
subparagragh  4.1.1. 

(8  CSU  vect_init.  This  CSU  initializes  a  vector.  This  CSU 
existed  within  the  original  code  and  is  not  documented 
herein. 

(9  CSU  vehicle_mass_init.  This  CSU  initializes  the  vehicle 
mass.  This  CSU  existed  within  the  original  code  and  is 
not  documented  herein. 

(10  CSU  groundjnit.  This  CSU  initializes  the  ground  forces. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(11)  CSU  find_cubic_func.  This  CSU  computes  the  cubic 
function  of  the  arguments.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(12)  CSU  aerodyn_read_simple_constants.  This  CSU 
initializes  reads  "simple"  aerod)mamic  model  constants 
from  a  designated  file  identified  by  the  argument.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(13)  CSU  get_constants_file.  This  CSU  identifies  and  opens  a 
constants  data  file.  This  CSU  existed  within  the  original 
code  and  is  not  documented  herein. 
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(14)  CSU  deg_to_rad.  This  CSU  converts  a  float  argument 
from  degrees  to  radians.  This  CSU  existed  within  tne 
original  code  and  is  not  documented  herein. 

(15)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  aerodyn_init.  These 
variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

cyclic_pitch 

cyclic_roll 

selected_model 

collective 

allow_takeoff 

pedal 

s  tab_aug_pi  tch_integr  a  tor 

stab_aug_roll_integrator 

s  tab_aug_ya  w_integra  tor 

s  tab_aug_climb_integra  tor 

a  tti  tude_control_pitch_in  tegra  tor 

a  tti  tude_con  trol_roll_integra  tor 

hover_aug_pitch_integrator 

ho  ver_aug_roll_integra  tor 

hover_aug_pitch_angle 

hover_aug_roll_angle 

hover_hold_state 

hover_hold_turned_on 

loc_ac_main_rotor_cop[3] 

loc_ac_tail_rotor_copl3] 

loc_ac_virtual_wing_cop[3] 

loc_ac_vstab_cop[3] 

loc_ac_cg[3] 

iner  tia_matrix[31  [3] 

pitch_damping 

roll_damping 

yaw_damping 

MAIN_ROTOR_MAST_TILT_SIN 

MAIN_ROTOR_MAST_TILT_COS 

vstab_force 

drag_force 

ground_force 

force_ground_effect 

force_body 

moment_body 
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moment_body_torque_coupling 

force_body_main_rotor 

force_body_tail_rotor 

force_body_damping 

inertia_matrix 

p_drag_fit_coeff[10] 

h.  Logic  flow.  The  CSU  aerodyn_init  is  called  by  the  CSU  rwa_init. 

See  Appendix  A  -  RWA  AirNet  Call  Tree  Structure.  Execution 

of  the  CSU  aerodyn_init  is  normally  done  only  once  during 

CSCI  initialization  and  is  performed  sequentially. 

Open  aerodynamics  performance  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

aero_data  [index] =first_f  ield 
descript=second_field 
increment  index  by  one 

End  while. 

Close  data  file. 

Open  aerodynamics  initialization  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

aero_init[indexl=first_field 
descript=second_field 
inaement  index  by  one 

End  '.‘’hile. 

Close  data  file. 

Open  aerodynamics  simple  initialization  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index=zero. 

While  record  not  end-of-file, 

aero_simple[index]=first_field 
descript=second_field 
increment  index  by  one 

End  while. 

Close  data  file. 
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Open  aerodynamics  stealth  initialization  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index=zero. 

While  record  not  end-of-file, 

aero_stealth[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Initialize  engine;  call  enginejnit 

Set  cyclic_pitch  =  aero_init[0] 

Set  cyclic_roll  =  aero_init[l] 

If  (selected_model  NOT  EQUAL  TO  STEALTH_MODEL)  then 
set  collective  =  aero_init[2l 

else 

set  collective  =  0.5 

set  allow_takeoff  «  TRUE 

end  if 

Set  pedal  =  aero_init[31 

Set  stab_aug_pitch_integrator  =  aero_init[4l 

Set  stab_aug_roll_integrator  =  aero_init[5] 

Set  stab_aug_yaw_integrator  =  aero_init[6] 

Set  stab_aug_climb_integrator  =  aero_init[7] 

Set  attitude_control_pitch_integrator  =  aero_init[8] 

Set  attitude_control_roll_integrator  =  aero_init[9] 

Set  hover_aug_pitch_integrator  =  aero_init[10] 

Set  hover_aug_roll_integrator  =  aero_init[ll] 

Set  hover_aug_pitch_angle  =  aero_init[12] 

Set  hover_aug_roll_angle  =  aero_init[13l 

Set  hover_hold_state  =  OFF 

Set  hover_hold_turned_on  =  FALSE 

Set  loc_ac_main_rotor_cop[X]  =  aero_data[24] 

Set  loc_ac_main_rotor_coplY}  =  aero_data[25] 

Set  loc_ac_main_rotor_copIZ]  =  aero_data[26] 

Set  loc_ac_tail_rotor_cop[Xl  =  aero_data[34] 
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Set  loc_ac_tail_rotor_cop[Y]  =  aero_data(35] 

Set  loc_ac_tail_rotor_cop[Zl  =  aero_data[36] 

Set  loc_ac_virtual_wing_cop[X]  =  aero_data[10] 

Set  loc_ac_virtual_wing_cop[Y]  =  aero_data[ll] 

Set  loc_ac_virtual_wing_cop[Z]  =  aero_data[12l 

Set  loc_ac_vstab_cop[X]  =  aero_data[19] 

Set  loc_ac_vstab_cop[Y]  =  aero_data[20] 

Set  loc_ac_vstab_cop[Zl  =  aero_data[21] 

Set  loc_ac_cg[X]  =  aero_data[6] 

Set  loc_ac_cg[Yj  =  aero_dataI7] 

Set  loc_ac_cg[zi  =  aero_data[8] 

Set  inertia_matrix[l]  [1]  =  aero_data[0] 

Set  inertia_matrix[2]  [2]  =  aero_data[l] 

Set  inertia_matrix[3i  [3]  =  aero_data[2i 

Set  pitch_damping  =  aero_data[68l 
Set  roll_damping  =  aero_datal671 
Set  yaw_damping  =  aero_data[691 

Set  MAIN_R0T0R_MAST_TILT_SIN  = 
sin(deg_to_rad(aero_data  [28] )); 

Set  MAIN_ROTOR_MAST_TILT_COS  = 
cos(deg_to_rad(aero_data[28])); 

Initialize  vstab_force  vector;  call  vec_init 

Initialize  drag_force  vector;  call  vec_init 

Initialize  ground_force  vector;  call  vec_init 

Initialize  force_ground_effect  vector;  call  vec_init 

Initialize  force_body  vector;  call  vec_init 

Initialize  moinent_body  vector;  call  vec_init 

Initialize  moinent_body_torque_coupling  vector;  call  vec_init 

Initialize  force_body_main_rotor  vector;  call  vec_init 

Initialize  force_body_tail_rotor  vector;  call  vecjnit 

Initialize  force_body_damping  vector;  call  vec_init 

Initial  vehicle  mass  init;  call  vehicle_mass_init 
Initialize  ground  forces;  call  ground_init 

Initialize  parasite  drag  profile;  set  p_drag_fit_coeff  =  0.0 
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If  (parasite  drag  find_cubic_func  NOT  EQUAL  TO  1)  then 

print  "AERODYN:  Error  -  unable  to  fit  p_drag  function" 

end  if 

If  (selected_model)  then 

Set  aerodyn_read_simple_constants  from 
get_constants_file 


end  if 

Data  structures.  The  following  shared  data  structures  are  used  by 

the  CSU  aerodyn_init. 

(1)  Data  structure  aero_data.  This  shared  data  structure  holds 
the  performance  data  defining  the  operating  limitations  of 
the  aerodynamics  model.  The  data  structure  is  an  array  of 
100  elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.1.  - 
AERODYNAMICS  DATA  ARRAY. 

(2)  Data  structure  aero_init.  This  shared  data  structure  holds 
the  dynamic  initialization  of  the  aerodynamics  model 
state.  The  data  structure  is  an  array  of  20  elements.  The 
data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.2.  -  AERODYNAMICS 
INITIALIZATION  DATA  ARRAY. 

(3)  Data  structure  aero_simple.  This  shared  data  structure 
holds  the  performance  data  describing  the  "simple" 
aerod3mamic  model.  The  data  structure  is  an  array  of  20 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.3.  - 
AERODYNAMICS  SIMPLE  DATA  ARRAY. 

(4)  Data  structure  aero_stealth.  This  shared  data  structure 
holds  the  performance  data  describing  the  "stealth" 
aerodynamics  model.  The  data  structure  is  an  array  of  20 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.4.  - 
AERODYNAMICS  STEALTH  DATA  ARRAY. 
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Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  aerodyn_init. 

(1)  Data  file  "simnet/data/rwa_aero.d".  This  data  file 
includes  the  performance  characteristics  of  the 
aerodynamics  model.  The  data  file  consists  of  a 
maximum  of  100  records.  Each  record  consists  of  two 
fields.  The  first  field  is  a  float  number,  and  the  second 
field  is  a  character  string  of  a  maximum  length  of  64.  The 
first  field  is  assigned  to  sequential  elements  of  the 
aero_data  global  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.1.  -  AERODYNAMICS  DATA  ARRAY  The  second 
field  is  for  documentation  purposes  only.  Access  of  the 
file  is  "read  only"  and  sequential. 

(2)  Data  file  "simnet/data/rw_ae_in.d".  This  data  file 

includes  the  initial  dynamic  state  of  the  aerodynamics 
model.  The  data  file  consists  of  a  maximum  of  20  records. 
Each  record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  aerojnit  global  array.  These 
fields  have  values  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.2.  -  AERODYNAMICS 

INITIALIZATION  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only.  Access  of  the  file  is  "read 
only"  and  sequential. 

(3)  Data  file  "simnet/data/rw_ae_sp.d".  This  data  file 
includes  the  performance  characteristics  of  the  "simple" 
aerodynamics  model.  The  data  file  consists  of  a 
maximum  of  20  records.  Each  record  consists  of  two 
fields.  The  first  field  is  a  float  number,  and  the  second 
field  is  a  character  string  of  a  maximum  length  of  64.  The 
first  field  is  assigned  to  sequential  elements  of  the 
aero_simple  global  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.3.  -  AERODYNAMICS  SIMPLE  DATA  ARRAY.  The 
second  field  is  for  documentation  purposes  only.  Access 
of  the  file  is  "read  only"  and  sequential. 
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(4)  Data  file  "simnet/data/rw_ae_sl.d".  This  data  file 
includes  the  performance  characteristics  of  the  "stealth" 
aerodynamics  model.  The  data  file  consists  of  a 
maximum  of  20  records.  Each  record  consists  of  two 
fields.  The  first  field  is  a  float  number,  and  the  second 
field  is  a  character  string  of  a  maximum  length  of  64.  The 
first  field  is  assigned  to  sequential  elements  of  the 
aero_stealth  global  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.4.  -  AERODYNAMICS  STEALTH  DATA  ARRAY.  The 
second  field  is  for  documentation  purposes  only.  Access 
of  the  file  is  "read  only"  and  sequential. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU  aerodynjnit. 

4.1.3.  CSU  veh_spec_kinematics_inil. 

The  CSU  veh_spec_kinematics_init  reads  kinematics  data  from  data  files  and 
initializes  the  kinematics  operating  and  performance  parameters,  limitations, 
initial  dynamic  state,  and  kinematics  status.  The  following  subparagraphs 
describe  the  design  information  for  the  CSU  veh_spec_kinematics_init. 

4.I.3.I.  CSU  veh_spec_kinematics_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.U.2.  CSU  veh_,spec_kinematics_init  design. 

The  CSU  veh_spec_kinematics_init  is  coded  in  the  ANSI  'C  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  veh_spec_kinematics_init.  For  a  complete  listing,  see 
Appendix  D  -  Source  Code  Listing  For  rwa_kinemat.c. 

a.  Input/output  data  elements.  None  used. 

b.  Local  data  elements.  TABLE  4. 1.3.1  -  CSU 

VEH_SPEC_KINEMATICS_INIT  LOCAL  DATA  DEFINITION 
TABLE  describes  the  local  data  elements  originating  in  the  CSU 
veh_spec_kinematics_init  and  not  used  by  any  other  CSU. 
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TABLE  4.1.3.1  -  CSU  VEH_SPEC_KINEMATICS_INIT  LOCAL  DATA 

DEHNITION  TABLE 


Name 

i 

data_tmp 

descript 

fp 

Description 

array  index 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

Blename  plus 
".d"  extension 

Size 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Non- 

dimensional 

Variable 

None 

None 

Limit/range 

0-99 

Variable 

N/A 

N/A 

Precision 

single 

single 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  veh_spec_kinematics_init. 

(1)  An  algorithm  to  read  kinematics  default  performance  data 
from  the  "simnet/data/rwa_kine.d"  data  file  is  executed. 
This  data  determines  the  performance  characteristics  of 
the  kinematics  during  real-time  execution.  Access  of  the 
file  is  "read  only". 

The  "simnet/data/rwa_kine.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temjx>rary  float  data  is 
assigned  to  the  current  indexed  engine_data  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
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and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  kinematics  default  initialization 
data  from  the  "simnet/data/rw_ki_in.d"  data  file  is 
executed.  This  data  determines  the  initial  dynamic  state 
of  the  kinematics  prior  to  real-time  execution.  Access  of 
the  file  is  "read  only". 

The  "simnet/data/rw_ki_in.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  engine_init_data 
element.  The  remainder  of  the  record  is  assigned  to  the 
temporary  character  string.  The  array  index  is 
inaemented  by  one  and  the  next  record  is  scanned.  If  the 
value  of  the  temporary  float  data  is  the  end-of-file,  the  file 
is  dosed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
veh_spec_kinema  tics_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 
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(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  vehicle_angular_velocity.  This  CSU  existed  within 
the  original  code  and  is  not  documented  herein. 

(8  CSU  vehicle_velocity.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(9)  CSU  mat_ident.  This  CSU  initializes  a  failure  of  the 
kinematics  or  its  subsystems.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(10)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU 
veh_spec_kinematics_init.  These  variables  existed  in  the 
original  code  and  will  not  be  dociimented  herein. 

pos_unit_vel[3] 

neg_unit_velI3] 

sin_aoa 

cos_aoa 

sin_yaw 

cos_yaw 

altitude 

body_pitch 

body_pitch_offset 

velocity_pitch 

roll 

heading 

true_airspeed 

indicated_airspeed 

g_force 

vertical_speed 
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ang_vel 
ve]ocity_  vector 
gravity[3] 
norm_velI3] 
veloci  ty_to_body 

h.  Logic  flow.  The  CSU  veh_spec_kinematics_init  is  called  by  the 
CSU  rwa_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  veh_spec_kinematics_init  is 
normally  done  only  once  during  CSCI  initialization  and  is 
performed  sequentially. 

Open  kinematics  performance  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

kinemat_data[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  kinematics  initialization  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

kinemat_init_datalindex]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  pos_unit_velIY]  =  kinemat_init_data[  1] 

Set  pos_unit_vel[Z]  =  kinemat_init_data[  2] 

Set  neg_unit_vel[X]  =  kinemat_init_data[  3] 

Set  neg_unit_vel[Y]  =  kinemat_init_data[  4] 

Set  neg_unit_vel[Z]  =  kinemat_init_data[  5] 

Set  sin_aoa  =  kinemat_init_datal  6] 

Set  cos_aoa  =  kinemat_init_data[  7] 

Set  sin_yaw  =  kinemat_init_datal  8] 

Set  cos_yaw  =  kinemat_init_data[  9] 

Set  altitude  =  kinemat_init_data[10] 
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Set  bociy_pitch  =  kinemat_init_data[ll] 

Set  body_pitch_offset  =  kinemat_init_data[12] 

Set  velocity_pitch  =  kinemat_init_data[13] 

Set  roll  =  kinemat_init_data[14] 

Set  heading  =  kinemat_init_data[15] 

Set  true_airspeed  =  kinemat_init_data[16] 

Set  indicated_airspeed  =  kinemat_init_data[17] 

Set  g_force  =  kinemat_init_data[18] 

Set  vertical_speed  =  kinemat_init_data[19] 

Set  ang_vel  =  vehicle_angular_velocity() 

Set  velocity _vector  =  vehicle_velocity() 

Set  gravity  [X]  =  kinemat_init_data[20j 
Set  gravitylY]  =  kinemat_init_data[21] 

Set  gravity [Z]  =  kinemat_init_data[22] 

Set  norm_vel[X]  =  kinemat_init_data[23] 

Set  nonn_vel[Y]  =  kinemat_init_data[24] 

Set  nonn_vel[Z]  =  kinemat_init_data[25j 

Compute  identity  matrix;  call  mat_ident(velocity_to_body) 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  veh_spec_kinematics_init. 

(1)  Data  structure  kinemat_data.  This  shared  data  structure 
holds  the  performance  data  defining  the  operating 
limitations  of  the  engines.  The  data  structure  is  an  array 
of  20  elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.8.  -  KINEMATICS 
DATA  ARRAY. 

(2)  Data  structure  kinemat_init_data.  This  shared  data 

structure  holds  the  dynamic  initialization  of  the  engines. 
The  data  structure  is  an  array  of  30  elements.  The  data 
structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.9.  -  KINEMATICS 

INITIALIZATION  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 
of  the  CSU  veh_spec_kinematics_init. 

(1)  Data  file  "simnet/data/rwa_kine.d".  This  data  file 
includes  the  performance  characteristics  of  the  kinematics. 


-29- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 

The  data  file  consists  of  a  maximum  of  20  records.  Each 
record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  engine_data  global  array. 
These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.8.  -  KINEMATICS 
DATA  ARRAY.  The  second  field  is  for  documentation 
purposes  only.  Access  of  the  file  is  "read  only"  and 
sequential. 

(2)  Data  file  "simnet/data/rw_ki_in.d".  This  data  file 
includes  the  initial  dynamic  state  of  the  kinematics.  The 
data  file  consists  of  a  maximum  of  10  records.  Each  record 
consists  of  two  fields.  The  first  field  is  a  float  number,  and 
the  second  field  is  a  character  string  of  a  maximum  length 
of  64.  The  first  field  is  assigned  to  sequential  elements  of 
the  engine_init_data  global  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.9.  -  KINEMATICS  INITIALIZATION  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only.  Access  of  the  file  is  "read  only"  and  sequential. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
veh_spec_kinema  tics_init. 

4.2.  CSC  weapons.init. 

This  CSC,  weapons_init,  controls  the  initialization  of  the  rotary  wing  aircraft 
weapon  models,  i.e.,  hydra,  tow,  hellfire.  The  structure  and  function  of  this 
CSC  was  not  modified  under  this  delivery  order.  The  following 
subparagraphs  describe  the  design  information  for  the  modified  CSUs  called 
by  this  CSC. 

4.2.1.  CSU  missile_tow_init. 

The  CSU  missile_tow_init  reads  tow  missile  data  from  data  files  and 
initializes  the  1)  performance  limitations  and  characteristics  data  array,  2)  the 
polynomial  degree  array,  3)  the  bum  speed  polynomial  coefficients  array,  4) 
the  coast  speed  polynomial  coefficients  array,  5)  the  burn  speed  turn, 
maximum  cosine  coefficient  structure,  and  6)  the  coast  sjjeed  turn,  maximum 
cosine  coefficient  structure.  The  following  subparagraphs  describe  the  design 
information  for  the  CSU  missile_tow_init. 
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4.2.1. 


1. 


CSU  missile_tow_init  design  specification/constraints. 


This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 


4.2.I.2.  CSU  missile_tow_init  design. 


The  CSU  missile_tow_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  missile_tow_init.  For  a  complete  listing,  see  Appendix  L  -  Source 
Code  Listing  For  miss_tow.c. 


a.  Input/output  data  elements. 

(1)  tptr  -  This  input  data  element  is  a  pointer  to  the  particular 
array  of  missiles  to  be  initialized.  This  element  is  declared 
global. 


(2)  No  output  data  elements  are  declared. 


b. 


Local  data  elements.  TABLE  4.2.1.1  -  CSU  MISSILE_TOW_INIT 
LOCAL  DATA  DEFINITION  TABLE  describes  the  local  data 
elements  originating  in  the  CSU  missile_tow_init  and  not  used 
by  any  other  CSU. 
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TABLE  4.2.1.1  -  CSU  MISSILE_TOW_lNIT  LOCAL  DATA  DEHNITION 

TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Descrip¬ 

tion 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Variable 

Variable 

None 

None 

0-99 

■i'HIII  II  ■ 

Variable 

N/A 

N/A 

1  Precision 

wmmmm 

iy:-M 

mmssmm 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_tow_init. 

(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  tow  missile  from  the 
"simnet/data/ms_tw_ch.d"  data  file  is  executed.  This 
data  determines  the  performance  limitations  and 
characteristics  of  the  tow  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_tw_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  valre  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  tow_miss_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
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character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  burn 
speed  coefficients  data  from  the 
"simnet/data/ms_tw_bs.d"  data  file  is  executed.  This  data 
determines  bum  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
tow  missile  during  engine  burn  for  the  tow  missile  flyout. 
Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_tw_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scarmed  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  tow_burn_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  dosed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"siirmet/data/ms_tw_cs.d"  data  file  is  executed.  This  data 
determines  coast  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
tow  missile  after  engine  burn  for  the  tow  missile  flyout. 
Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_tw_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 


-33- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 

first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  third  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  tow_coast_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(4)  An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  during  engine  burn 
data  from  the  "simnet/data/ms_tw_bt  d"  data  file  is 
executed.  This  data  defines  the  maximum  cosine 
coefficients  during  real-time  execution  to  compute  the 
maximum  cosine  of  a  turn  in  each  axis  during  engine 
bum  of  the  tow  missile  flyout.  Access  of  the  file  is  "read 
only". 

The  "simnet/data/ms_tw_bt.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  third  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero  for  the  side  axis,  wiA 
the  limit  set  to  the  degree.  Then,  each  record  is  scanned 
and  the  first  field  is  assigned  to  a  temporary  float  data 
storage,  and  assigned  to  the  current  indexed 
tow_burn_tum_coeff.side_coeff  element.  The  remainder 
of  the  record  is  assigned  to  the  temporary  character  string. 
The  array  index  is  incremented  by  one  and  the  next  record 
is  scanned  and  stored  until  the  degree  limit  is  hit.  The 
process  is  repeated  for  the  up  and  down  axes.  Then,  the 
file  is  closed. 
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(5)  An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  data  after  engine  bum 
from  the  "simnet/data/ms_tw_ct.d"  data  file  is  executed. 
This  data  defines  the  maximum  cosine  coefficients  during 
real-time  execution  to  compute  the  maximum  cosine  of  a 
turn  in  each  axis  after  engine  burn  of  the  tow  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_tw_ct.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewoimd  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  fourth  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero  for  the  side  axis,  with 
the  limit  set  to  the  degree.  Then,  each  record  is  scanned 
and  the  first  field  is  assigned  to  a  temporary  float  data 
storage,  and  assigned  to  the  current  indexed 
tow_coast_turn_coeff.side_coeff  element.  The  remainder 
of  the  record  is  assigned  to  the  temporary  character  string. 
The  array  index  is  incremented  by  one  and  the  next  record 
is  scanned  and  stored  until  the  degree  limit  is  hit.  The 
process  is  repeated  for  the  up  and  down  axes.  Then,  the 
file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_tow_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 
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(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_tow_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

tptr 

mptr.state 

mptr.max_flight_time 

mptr.max_turn_directions 

speed_factor 

max_range_limit 

max_range_squared 

tow_ammo_type 

munition_US_Tow 

h.  Logic  flow.  The  CSU  inissile_tow_init  is  called  by  the  CSU 
weaponsjnit.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  missile_tow_init  is  normally 
done  only  once  during  CSCI  initialization  and  is  performed 
sequentially. 

Open  tow  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

tow_miss_char[index]=first_field 
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descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  bum  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  tow_miss_poly_deg[0]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

tow_burn_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  to w_miss_poly_degtl  ]  =first_f ield 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

tow_coast_speed_coeff[indexl=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  burn  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  tow_miss_poly_deg[2l=first_field 
Set  descript=second_field 

For  index  from  0  to  tow_miss_poly_deg[2],  single  step, 

tow_burn_turn_coeff.side_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_miss_poly_degl2l,  single  step. 
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tow_burn_turn_coeff.up_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_miss_poly_deg[2],  single  step, 

tow_burn_turn_coeff.down_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

Close  data  file. 

Open  coast  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  to w_miss_poly_deg  [3] =f irs t_f ield 
Set  descript=second_field 

For  index  from  0  to  tow_miss_poly_deg[3],  single  step, 

tow_coast_tum_coeff.side_coeff[indexl  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_miss_poly_deg[3],  single  step, 
tow_coast_tum_coeff.up_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_iniss_poly_deg[3],  single  step, 

tow_coast_tum_coeff.down_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

Close  data  file. 

Set  mptr.state  =  FALSE 

Set  mptr.max_flight_time  =  tow_miss_char[2] 

Set  mptr.max_tum_directions  =  3 

Set  speedjactor  =  MISSILE_US_SPEED_FACTOR 

Set  max_range_limit  =  MISSILE_US_MAX_RANGE_LIMIT 

Set  max_range_squared  =  max_range_limit  *  max_range_limit 

Set  tow_ammo_type  =  mimition_US_Tow 

i.  Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_tow_init. 

(1)  Data  structure  tow_miss_char.  This  shared  data  structure 
holds  the  performance  limitations  and  characteristics  for 
the  tow  missile.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 
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initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.23.  -  TOW 
MISSILE  CHARACTERISTICS  DATA  ARRAY. 

(2)  Data  structure  tow_miss_poly_deg.  This  shared  data 
structure  holds  the  polynomial  degree  data  defining  the 
size  if  the  pol)rnomial  arrays  and  strucures  used  in  this 
CSU.  The  data  structure  is  an  array  of  5  elements.  The 
data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.24.  -  TOW  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY. 

(3)  Data  structure  tow_burn_speed_coeff.  This  shared  data 

structure  holds  the  bum  speed  coefficients  for  the  bum 
speed  poljmomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.25.  -  TOW 
MISSILE  BURN  SPEED  DATA  ARRAY. 

(4)  Data  structure  tow_coast_speed_coeff.  This  shared  data 

structure  holds  the  coast  speed  coefficients  for  the  coast 
speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.26.  -  TOW 
MISSILE  COAST  SPEED  DATA  ARRAY. 

(5)  Data  structure  tow_burn_turn_coeff.  This  shared  data 
structure  holds  the  maximum  cosine  coefficients  for  a 
turn  in  each  axis  during  engine  burn  for  the  burn  turn 
polynomial.  The  data  structure  is  an  array  of  2  elements 
for  each  axis.  There  are  three  axes:  side,  up,  and  down. 
The  data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.27.  -  TOW  MISSILE  BURN  TURN 
DATA  STRUCTURE. 

(6)  Data  structure  tow_coast_turn_coeff.  This  shared  data 
structure  holds  the  maximum  cosine  coefficients  for  a 
turn  in  each  axis  during  engine  burn  for  the  burn  turn 
polynomial.  The  data  structure  is  an  array  of  4  elements 
for  each  axis.  There  are  three  axes:  side,  up,  and  down. 
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The  data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.28.  -  TOW  MISSILE  COAST  TURN 
DATA  STRUCTURE. 

j.  Local  data  files.  The  following  data  files  are  part  of  the  local  data 
of  the  CSU  missile_tow_init. 

(1)  Data  file  "simnet/data/ms_tw_ch.d".  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  tow  missile.  The  data  file  consists  of  a  maximum  of 
5  records.  Access  of  the  file  is  "read  only"  and  sequential. 

Each  record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  global  tow_miss_char  data 
array.  These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.23.  -  TOW  MISSILE 
CHARACTERISTICS  DATA  ARRAY.  The  second  field  is 
for  documentation  purposes  only. 

(2)  Data  file  *'simnet/data/ms_tw_bs.d".  This  data  file 
includes  the  burn  speed  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  6  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.24.  -  TOW  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_burn_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.25.  -  TOW  MISSILE  BURN  SPEED  DATA 
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ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(3)  Data  file  "simnet/data/ms_tw_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  6  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.24.  -  TOW  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  nximber,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.26.  -  TOW  MISSILE  COAST  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(4)  Data  file  "simnet/data/ms_tw_bt.d".  This  data  file 
includes  the  burn  turn  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  7  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.24.  -  TOW  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 
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Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_burn_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.27.  -  TOW  MISSILE  BURN  TURN  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(5)  Data  file  "simnet/data/ms_tw_ct.d".  This  data  file 
includes  the  coast  turn  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  13  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
ouUined  in  TABLE  5.1.24.  -  TOW  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.28.  -  TOW  MISSILE  COAST  TURN  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_tow_init. 

4.2.2.  CSU  missile_hellfire_init. 

The  CSU  missile_hellfire_init  reads  hellfire  missile  data  from  data  files  and 
initializes  the  1)  performance  limitations  data  array,  2)  the  polynomial  degree 
array,  3)  the  time-of-flight  polynomial  coefficients  array,  4)  the  burn  speed 
polynomial  coefficients  array,  and  5)  the  coast  speedpolynomial  coefficients 
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array.  The  following  subparagraphs  describe  the  design  information  for  the 
CSU  missile_hellfire_init. 

4.2^.1.  CSU  missile_hellfire_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.2^.2.  CSU  missile_hellfire_init  design. 

The  CSU  missile_hellfire_init  is  coded  in  the  ANSI  'C'  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  missile_hellfire_init.  For  a  complete  listing,  see 
Appendix  G  -  Source  Code  Listing  For  miss_hellfr.c. 

a.  Input /output  data  elements. 

(1)  mptr  -  This  input  data  element  is  a  pointer  to  the 
particular  array  of  missiles  to  be  initialized.  This  element 
is  declared  global. 

(2)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4. 2. 2.1  -  CSU 

MISSILE_HELLFIRE_INIT  LOCAL  DATA  DEFINITION  TABLE 
describes  the  local  data  elements  originating  in  the  CSU 
missile_hellfire_init  and  not  used  by  any  other  CSU. 


-43- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


TABLE  A2.2.1  -  CSU  MISSILE_HELLFIRE_1NIT  LOCAL  DATA  DEFINITION 

TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Description 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

nun±er 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Variable 

Variable 

None 

None 

iss&snirs 

0-99 

Variable 

Variable 

N/A 

N/A 

1  Precision 

wmsmm 

mEmm 

N/A 

N/A 

c.  Interrupts  and  sijgnals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_hellfire_init. 

(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  hellfire  missile  from  the 
"sinmet/data/ms_hf_ch.d"  data  file  is  executed.  This  data 
determines  the  performance  limitations  and 
characteristics  of  the  hellfire  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_hf_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  ojjened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  anc\  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  hellfr_miss_char 
element.  The  remainder  of  the  record  is  assigned  to  the 


-44- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 

temporary  character  string.  The  array  index  is 
inaemented  by  one  and  the  next  record  is  scanned.  If  the 
value  of  the  temporary  float  data  is  the  end-of-file,  the  file 
is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  time  of 
flight  coefficients  data  from  the 
"simnet/data/ms_hf_tf.d"  data  file  is  executed.  This  data 
determines  time-of-flight  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  estimated 
time-of-flight  for  the  hellfire  missile  flyout.  Access  of  the 
file  is  "read  only". 

The  "simnet/data/ms_hf_tf.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
hellfr_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  hellfire_tof_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  bum 
speed  coefficients  data  from  the 
"simnet/data/ms_hf_bs.d"  data  file  is  executed.  This  data 
determines  bum  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
hellfire  missile  during  engine  bum  for  the  hellfire  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_hf_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  ojjened,  and  the  CSU  is  exited.  If  the  file  is  not 
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null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  second  element  of  the 
hellfr_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigried  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  hellfire_burn_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(4)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"simnet/data/ms_lif_cs.d"  data  file  is  executed.  This  data 
determines  coast  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
hellfire  missile  after  engine  burn  for  the  hellfire  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_hf_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  third  element  of  the 
hellfr_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scaimed  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  hellfire_coast_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 
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e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 

handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 

standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 

missile_hellfire_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU 
missile_hellfire_init.  These  variables  existed  in  the 
original  code  and  will  not  be  documented  herein. 

mptr 

state 

max_flight_time 

max_turn_directions 

speed_factor 

max_range_limit 
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n\ax_range_squared 

hellfire_ammo_type 

munition_US_Hellfire 

h.  Logic  flow.  The  CSU  missile_hellfire_init  is  called  by  the  CSU 
weapons_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  missile_hellfire_init  is 
normally  done  only  once  during  CSCI  initialization  and  is 
performed  sequentially. 

Open  hellfire  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

hellfr_miss_char[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  time_of_flight  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  hellfr_miss_poly_deg[0]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

hellfire_tof_coeff[index]=first_field 
descript=second_field 
inaement  index  by  one 
End  while. 

Close  data  file. 

Open  bum  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  hellf r_miss_poly_deg[l  ]  =f irst_f ield 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

hellfire_burn_speed_coeff[indexl=first_field 
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descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  hellfr_miss_poly_deg[2l=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

hellfire_coast_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  state  =  FALSE 

Set  max_flight_time  =  hellfr_miss_charI2] 

Set  max  turn_directions  =  1 

Set  speedjactor  =  MISSILE_US_SPEED  FACTOR 

Set  max.rangejimit  =  MISSILE_US_MAX_RANGE_LIMIT 

Set  max_range_squared  =  max_range_limit  *  max_range_limit 

Set  hellfire_ammo_type  =  munition_US_Hellfire 

i.  Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_hellfire_init. 

(1)  Data  structure  hellfr_miss_char.  This  shared  data 
structure  holds  the  performance  limitations  and 
characteristics  for  the  hellfire  missile.  The  data  structure 
is  an  array  of  5  elements.  The  data  structure  is  given 
default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.10.  - 
HELLFIRE  MISSILE  CHARACTERISTICS  DATA  ARRAY. 

(2)  Data  structure  hellfr_miss_poly_deg.  This  shared  data 
structure  holds  the  polynomial  degree  data  defining  the 
size  if  the  polynomial  arrays  used  in  this  CSU.  The  data 
structure  is  an  array  of  3  elements.  The  data  structure  is 
given  default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.11.  - 
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HELLFIRE  MISSILE  POLYNOMIAL  DEGREE  DATA 
ARRAY. 

(3)  Data  structure  hellfire_tof_coeff.  This  shared  data 
structure  holds  the  time_of-flight  coefficients  for  the 
time-of-flight  polynomial.  The  data  structure  is  an  array 
of  10  elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.12.  -  HELLFIRE 
MISSILE  TIME-OF-FUGHT  DATA  ARRAY. 

(4)  Data  structure  hellfire_burn_speed_coeff.  This  shared 
data  structure  holds  the  burn  speed  coefficients  for  the 
bum  speed  polynomial.  The  data  stmcture  is  an  array  of 
10  elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.13.  -  HELLFIRE 
MISSILE  BLiySl  SPEED  DATA  ARRAY. 

(5)  Data  structure  hellfire_coast_speed_coeff.  This  shared 
data  structure  holds  the  coast  speed  coefficients  for  the 
coast  speed  polynomial.  The  data  structure  is  an  array  of 
10  elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.14.  -  HELLFIRE 
MISSILE  COAST  SPEED  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  missile_hellfire_init. 

(1)  Data  file  "simnet/data/ms_hf_ch.d’’.  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  hellfire  missile.  The  data  file  consists  of  a 
maximum  of  16  records.  Access  of  the  file  is  "read 
onlyacteristics  for  the  tow  missileconsists  of  two  fields. 
The  first  field  is  a  float  number,  and  the  second  field  is  a 
character  string  of  a  maximum  length  of  64.  The  first 
field  is  assigned  to  sequential  elements  of  the  global 
hellfr_miss_char  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.10.  -  HELLFIRE  MISSILE  CHARACTERISTICS  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 
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(2)  Data  file  "simnet/data/ms_hf_tf.d".  This  data  file 
includes  the  time-of-flight  degree  of  polynomial  and 
coefficients  data  for  the  hellfire  missile.  The  data  file 
consists  of  a  maximum  of  11  records.  Access  of  the  file  is 
"read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  hellfr_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.11.  -  HELLFIRE  MISSILE 
POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
hellfire_tof_coeff  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.12.  -  HELLHRE  MISSILE  TIME-OF-FLIGHT  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(3)  Data  file  "simnet/data/ms_hf_bs.d".  This  data  file 
includes  the  burn  speed  degree  of  polynomial  and 
coefficients  data  for  the  hellfire  missile.  The  data  file 
consists  of  a  maximum  of  11  records.  Access  of  the  file  is 
"read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  hellfr_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.11.  -  HELLFIRE  MISSILE 
POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  docvimentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
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hellfire_burn_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.13.  -  HELLFIRE  MISSILE  BURN  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(4)  Data  file  "simnet/data/ms_hf_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  hellfire  missile.  The  data  file 
consists  of  a  maximum  of  11  records.  Access  of  the  file  is 
"read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  hellfr_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.11.  -  HELLFIRE  MISSILE 
POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
hellfire_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.14.  -  HELLFIRE  MISSILE  COAST  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_hellfire_init. 

4.23.  CSU  missile_stinger_init. 

The  CSU  missile_stinger_init  reads  stinger  missile  data  from  data  files  and 
initializes  the  1)  performance  limitations  data  array,  2)  the  polynomial  degree 
array,  3)  the  burn  speed  polynomial  coefficients  array,  and  4)  the  coast  speed 
polynomial  coefficients  array.  The  following  subparagraphs  describe  the 
design  information  for  the  CSU  missile_stinger_init. 

4.2.3.I.  CSU  missile_stinger_init  design  specification/constraints. 
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This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.2.3.2.  CSU  missile_stinger_init  design. 

The  CSU  missile_stinger_init  is  coded  in  the  ANSI  'C  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  missile_stinger_init.  For  a  complete  listing,  see 
Appendix  K  -  Source  Code  Listing  For  miss_stinger.c. 

a.  Input/output  data  elements. 

(1)  missile_array  -  This  input  data  structure  is  a  pointer  to  the 
particular  array  of  missiles  to  be  initialized.  This  structure 
is  declared  global. 

(2)  num_missiles  -  This  input  data  element  is  the  number  of 
missiles  defined  in  the  missile_array.  This  element  is 
declared  global. 

(3)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4.2.3. 1  -  CSU 

MISSILE_STINGER_INIT  LOCAL  DATA  DEFINITION  TABLE 
describes  the  local  data  elements  originating  in  the  CSU 
missile_stinger_init  and  not  used  by  any  other  CSU. 
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TABLE  4.2.3.1  -  CSU  MISSILE_STINGER_INIT  LOCAL  DATA  DEHNITION 

TABLE 


Name 

■m 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Description 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

1 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

1  Precision 

mmsmm 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_stinger_init. 

(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  ot  the  stinger  missile  from  the 
"simnet/data/ms_st_ch.d"  data  file  is  executed.  This  data 
determines  the  performance  limitations  and 
characteristics  of  the  stinger  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_st_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  stinger_miss_char 
element.  The  remainder  of  the  record  is  assigned  to  the 


-54- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 

temporary  character  string.  The  array  index  is 
incremented  by  one  and  the  next  record  is  scanned.  If  the 
value  of  the  temporary  float  data  is  the  end-of-file,  the  file 
is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  bum 
speed  coefficients  data  from  the 
"simnet/data/ms_st_bs.d"  data  file  is  executed.  This  data 
determines  bum  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
stinger  missile  during  engine  bum  for  the  stinger  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_st_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it.  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
stinger_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  stinger_burn_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"simnet/data/ms_st_cs.d"  data  file  is  executed.  This  data 
determines  coast  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
stinger  missile  after  engine  bum  for  the  stinger  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_st_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
caimot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
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null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  second  element  of  the 
stinger_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  stinger_coast_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_stinger_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 
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(6)  CSU  fdose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  missile_fuze_prox_init.  This  CSU  initializes  the 
proximity  fuze  for  the  stinger  missile.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(8)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_stinger_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

missile_array 

num_missiles 

stinger_array 

num_stingers 

stinger_array[l.mptr.state 

stinger_array[l.mptr.max_flight_time 

stinger_array[l.mptr.max_turn_directions 

speed_factor 

max_range_limit 

max_range_squared 

stinger_ammo_type 

munition_US_Stinger 

h.  Logic  flow.  The  CSU  missile_stinger_init  is  called  by  the  CSU 
weapons_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  missile_stinger_init  is 
normally  done  only  once  during  CSCI  initialization  and  is 
performed  sequentially. 

Open  stinger  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

stinger_miss_char[indexl=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  bum  speed  data  file. 
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If  file  is  ntill,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  stinger_miss_poly_deg[0]  =first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

stinger_burn_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  stinger_miss_poly_deg[l  ] =first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

stinger_coast_speed_coeff[index]=first_field 
descript=second_field 
inaement  index  by  one 
End  while. 

Close  data  file. 

Set  num_stingers  =  num_missiles 

Set  stinger  array  =  missile_array 

For  index  =  0  to  less  than  ntun_missiles,  single  step. 

Set  state  =  FALSE 

Set  max_flight_time  =  stinger_miss_char[l] 

Set  max_turn_directions  =  1 
End  for  loop 

Set  speed  Jactor  =  MISSILE_US_SPEED_FACTOR 
Set  max_range_limit  =  MISSILE_US_MAX_RANGE_LIMIT 
Set  max_range_squared  =  max_range_limit  *  max_range_limit 
Set  stinger_ammo_type  =  munition_US_Stinger 

Initial  proximity  fuze;  call  missile_fuze_prox_init 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_stinger_init. 
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(1)  Data  structure  stinger_iniss_char.  This  shared  data 
structure  holds  the  performance  limitations  and 
characteristics  for  the  stinger  missile.  The  data  structure  is 
an  array  of  15  elements.  The  data  structure  is  given 
default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.19.  - 
STINGER  MISSILE  CHARACTERISTICS  DATA  ARRAY. 

(2)  Data  structure  stinger_miss_poly_deg.  This  shared  data 
structure  holds  the  polynomial  degree  data  defining  the 
size  if  the  polynomial  arrays  used  in  this  CSU.  The  data 
structure  is  an  array  of  2  elements.  The  data  structure  is 
given  default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.20,  - 
SlINGER  MISSILE  POLYNOMIAL  DEGREE  DATA 
ARRAY. 

(3)  Data  structure  stinger_burn_speed_coeff.  This  shared 

data  structure  holds  the  burn  speed  coefficients  for  the 
burn  speed  polynomial.  The  data  structure  is  an  array  of  2 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.21.  -  STINGER 
MISSILE  BURN  SPEED  DATA  ARRAY. 

(4)  Data  structure  stinger_coast_speed_coeff.  This  shared 

data  structure  holds  the  coast  speed  coefficients  for  the 
coast  speed  polynomial.  The  data  structure  is  an  array  of  4 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.22.  -  STINGER 
MISSILE  COAST  SPEED  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  missile_stinger_init. 

(1)  Data  file  "simnet/data/ms_st_ch.d".  This  data  file 
includes  the  pierformance  limitations  and  characteristics 
of  the  stinger  missile.  The  data  file  consists  of  a 
maximum  of  15  records.  Access  of  the  file  is  "read  only" 
and  sequential.  Each  record  consists  of  two  fields.  The 
first  field  is  a  float  number,  and  the  second  field  is  a 
character  string  of  a  maximum  length  of  64.  The  first 
field  is  assigned  to  sequential  elements  of  the  global 
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stinger_miss_char  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.19.  -  STINGER  MISSILE  CHARACTERISTICS  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(2)  Data  file  "simnet/data/ms_st_bs.d".  This  data  file 
includes  the  burn  speed  degree  of  polynomial  and 
coefficients  data  for  the  stinger  missile.  The  data  file 
consists  of  a  maximum  of  3  records.  Access  of  the  file  is 
"read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  stinger_miss_poly_deg  data 
array.  This  field  has  a  value  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.20.  -  STINGER 
MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY.  The 
second  field  is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
stinger_burn_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.21.  -  STINGER  MISSILE  BURN  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(3)  Data  file  "simnet/data/ms_st_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  stinger  missile.  The  data  file 
consists  of  a  maximum  of  5  records.  Access  of  the  file  is 
"read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  stinger_miss_poly_deg  data 
array.  This  field  has  a  value  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.20.  -  STINGER 


-60- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 

MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY.  The 
second  field  is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  *ength  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
stinger_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.22.  -  STINGER  MISSILE  COAST  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_stinger_init. 


4.2.4.  CSU  hydra_init. 

The  CSU  hydrajnit  reads  hydra  rocket  data  from  data  files  and  initializes  the 
configuration  data  array.  The  following  subparagraphs  describe  the  design 
information  for  the  CSU  hydra_init. 

4.2.4.1.  CSU  hydra.init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.2.4.2.  CSU  hydra.init  design. 

The  CSU  hydra_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  hydra_init.  For  a  complete  listing,  see  Appendix  N  -  Source  Code 
Listing  For  rwa_hydra.c. 

a.  Input /output  data  elements.  No  input/output  data  elements  are 
declared. 

b.  Local  data  elements.  TABLE  4.2.4.1  -  CSU  HYDRA_INIT  LOCAL 
DATA  DEFINITION  TABLE  describes  the  local  data  elements 
originating  in  the  CSU  hydra_init  and  not  used  by  any  other 
CSU. 
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TABLE  4.2.4.1  -  CSU  HYDRA.INIT  LOCAL  DATA  DEHNITION  TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Descrip¬ 

tion 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
”.d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

1  Precision 

^Esmm 

wmssam 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  hydra_init. 

(1)  An  algorithm  to  read  the  configuration  for  the  hydra 
rocket  from  the  "simnet/data/rwa_hydr.d"  data  file  is 
executed.  This  data  determines  the  configuration  for  the 
hydra  rocket  during  real-time  execution.  Access  of  the  file 
is  "read  only". 

The  "simnet/data/rwa_hydr.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  hydra,  rkt_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
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nd  the  next  record  is  scanned.  If  the  value  of  the 
-Tiporary  float  data  is  the  end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 

handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 

standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 

hydra_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fdose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  rotate_init_element.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(8)  CSU  hull.  This  CSU  existed  writhin  the  original  code  and 
is  not  documented  herein. 

(9)  CSU  articulation.  This  CSU  existed  within  the  original 
code  and  is  not  documented  herein. 
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(10)  CSU  missile_hydra_init.  This  CSU  is  documented  in 
paragraph  4.2.5  -  CSU  missile_hydra_init. 

(11)  CSU  missile_hydra_set_pylon_position_offsets.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(12)  CSU  hydra_config_rockets.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(13)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  hydra_init.  These 
variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

left_launcher_pos 

right_launcher_pos 

articula  tion_pos 

articulation_element 

pylon_L_element 

pylon_R_element 

hydras 

left_rocket_launch 

right_rocket_launch 

pylons_set 

h.  Logic  flow.  The  CSU  hydra_init  is  called  by  the  CSU 

weapons_mit.  See  Appendix  A  -  RWA  AireNet  Call  Tree 

Structure.  Execution  of  the  CSU  hydra_init  is  done  during  CSCI 

initialization. 

Open  hydra  rocket  cconfiguration  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

hydra_rkt_char[index]=first_field 
descript=second_field 
increment  index  by  one 

End  while. 

Close  data  file. 

Set  left_launcher_pos[Ol  =  hydra_rkt_char[0] 
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Set  right_launcher_pos{Ol  =  hydra_rkt_char[Ol 
Set  articulation_pos[l]  =  hydra_rkt_char[ll 
Set  articulation_pos[2]  =  hydra_rkt_char[2] 

Rotate  articulation_element 

If  Rotate  articulation_element  fails,  send  error  message 

Rotate  pylon_L_element 

Rotate  pylon_R_element 

Call  missile_hydra_init 

Call  missile  hydra_set_pylon_position_offsets 

Call  hydra_config_rockets 

Set  left_rocket_launch  =  FALSE 

Set  right_rocket_launch  =  False 

Set  pylons_set  =  FALSE 

i.  Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  hydrajnit. 

(1)  Data  structure  hydra_rkt_char.  This  shared  data  structure 
holds  the  configuration  for  the  hydra  rocket.  The  data 
structure  is  an  array  of  7  elements.  The  data  structure  is 
given  default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.52.  - 
HYDRA  ROCKET  CONHGURATION  DATA  ARRAY. 

j.  Local  data  files.  The  following  data  files  are  part  of  the  local  data 
of  the  CSU  hydrajnit. 

(1)  Data  file  ''simnet/data/rwa_hydr.d".  This  data  file 
includes  the  configuration  and  characteristics  of  the  hydra 
rocket.  The  data  file  consists  of  a  maximum  of  7  records. 
Access  of  the  file  is  "read  only"  and  sequential.  Each 
record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  global  hydra_rkt_char  data 
array.  These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.52.  -  HYDRA 
ROCKET  CONFIGURATION  DATA  ARRAY.  The  second 
field  is  for  documentation  purposes  only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU  hydrajnit. 

CSU  missile.hydra.init. 
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The  CSU  missile_hydra_init  reads  hdyra  rocket  data  from  data  files  and 
initializes  the  characteristic  data  array.  This  CSU  copies  the  paramaters  into 
variables  static  to  the  rkt_hydra.c  module  and  initializes  the  state  of  all  the 
rockets.  The  following  subparagraphs  describe  the  design  information  for  the 
CSU  missile_hydra_init. 

4.2.5.1.  CSU  missile.hydra.init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.2.5.2.  CSU  missile_hydra_init  design. 

The  CSU  missile_hydra_init  is  coded  in  the  ANSI  'C  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  missile_hydra_init.  For  a  complete  listing,  see 
Appendix  M  *  Source  Code  Listing  For  rkt_hydra.c. 

a.  Input /output  data  elements. 

(1)  rocket_array  -  This  input  data  structure  is  an  array  of 
rocketsof  structure  type  HYDRA_ROCKET.  This  structxrre 
is  declared  global. 

(2)  num_rockets  -  This  input  data  element  is  the  number  of 
rockets  defined  in  the  rocket_array.  This  element  is 
declared  global. 

(3)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4.2.5. 1  -  CSU 

MISSILE_HYDRA_INIT  LOCAL  DATA  DEHNITION  TABLE 
describes  the  local  data  elements  originating  in  the  CSU 
missile_hydra_init  and  not  used  by  any  other  CSU. 
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TABLE  4.2.5.1  -  CSU  MISSILE_HYDRA_INIT  LOCAL  DATA  DEHNITION 

TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Descrip¬ 

tion 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

1  Precision 

wmmm 

^Esmm 

^Essam 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_hydra_init. 

(1)  An  algorithm  to  read  the  characteristics  for  the  hdyra 
rocket  from  the  "simnet/data/rkt_hydr.d"  data  file  is 
executed.  This  data  determines  the  characteristics  for  the 
hdyra  rocket  during  real-time  execution.  Access  of  the  file 
is  "read  only". 

The  "simnet/data/rkt_hydr.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  rkt_hydra_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
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and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 

handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 

standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 

missile_hydra_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  missile_util_load_ball_traj_file.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(8)  CSU  rva_create_output_list.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(9)  CSU  missile_fuze_prox_init.  This  CSU  existed  within 
the  original  code  and  is  not  documented  herein. 
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(10)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_hydra_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

hydra_array 

num_hydra 

rkts_in_flight 

hydra_fly 

pylon_x 

pylon_y 

pylon_z 

flight_time 

speed_factor 

MISSILE_US_SPEED_FACTOR 

max_range_limit 

MISSILE_US_MAX_RANGE_LIMIT 

ball_table_loaded 

table_size 

HYDRA_TRAJ_nLE 
ball_table 
flechette_veh_Iist 
flechette_is  valid  veh 
RVA_ALL_VEHICLES_LIST 

h.  Logic  flow.  The  CSU  missile_hydra_init  is  called  by  the  CSU 
hydra_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  missile_hydra_init  is  done 
during  hydra  rocket  initialization. 

Open  hdyra  rocket  characteristic  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

rkt_hydra_charjindex]=first_field 
descript=second_field 
inaement  index  by  one 
End  while. 

Close  data  file. 

Set  hydra_array  =  rocket_array 
Set  num_hydra  =  num_rocket 
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For  each  rocket. 

Set  state  =  FREE 
Set  missile_id  =  0 
Set  rkts_in_flight  =  0 
Set  hydra_fly  =  0 
Set  pylon_x  =  0.0 
Set  pylon_y  =  0.0 
Set  pylon_z  =  0.0 
Set  flight_time  =  0 

Set  speedjactor  =  MISSILE_US_SPEED_FACTOR 

Set  max_range_limit  =  MISSILE_US_MAX_RANGE_LIMIT 

If  ball_table_loaded  is  FALSE, 

Load  ballistics  table 
Set  ball_table_loaded  =  TRUE 
Create  flechette_veh_list  for  proximity  fuze 
Initialize  the  proximity  fuze  for  rockets  armed  with  Flechettes 

Data  structiues.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_hydra_init. 

(1)  Data  structure  rkt_hydra_char.  This  shared  data  structure 
holds  the  characteristics  for  the  hdyra  rocket.  The  data 
structure  is  an  array  of  12  elements.  The  data  structure  is 
given  default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.53.  - 
HDYRA  ROCKET  CHARACTERISTICS  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 
of  the  CSU  missile_hydra_init. 

(1)  Data  file  "simnet/data/rkt_hydr.d".  This  data  file 
includes  the  characteristics  of  the  hdyra  rocket.  The  data 
file  consists  of  a  maximum  of  12  records.  Access  of  the  file 
is  "read  only"  and  sequential.  Each  record  consists  of  two 
fields.  The  first  field  is  a  float  number,  and  the  second 
field  is  a  character  string  of  a  maximum  length  of  64.  The 
first  field  is  assigned  to  sequential  elements  of  the  global 
rkt_hydra_char  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.53.  -  HDYRA  ROCKET  CHARACTERISTICS  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 
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(2)  Data  file  "simnet/data/hydra70.sd".  This  data  file 
includes  the  trajectory  data  of  the  hdyra  rocket.  This  data 
file  existed  under  the  original  code  and  has  not  been 
modified.  It  is  loaded  during  execution  of  the  CSU 
missile_hydra_init. 

(3)  Data  file  "simnet/data/hydra70.sp".  This  data  file 
includes  the  trajectory  parameters  of  the  hdyra  rocket. 
This  data  file  existed  under  the  original  code  and  has  not 
been  modified.  It  is  loaded  during  execution  of  the  CSU 
missile_hydra_init. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_hydra_init. 

4.2.6.  CSU  missile_m73_init. 

The  CSU  missile_m73_init  reads  m73  missile  data  from  data  files  and 
initializes  the  performance  limitations  and  characteristics  data  array.  The 
following  subparagraphs  describe  the  design  information  for  the  CSU 
missile_m73_init. 

4.2.6.1.  CSU  missile_m73_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.2.6.2.  CSU  missile_m73_init  design. 

The  CSU  missile_m73_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  missile_m73_init.  For  a  complete  listing,  see  Appendix  P  -  Source 
Code  Listing  For  sub_m73.c. 

a.  Input /output  data  elements. 

(1)  bmptr  -  This  input  data  element  is  a  pointer  to 
BALLASTIC_MISSILE  structure  that's  ammo-type  is 
MPSM,  i.e.,  it  releases  sub-munitions  of  type 
munition_US_M73.  This  structure  is  declared  global. 
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(2)  sub_mun  -  This  input  data  element  is  a  pointer  to  the 
sub-munition  structure  associated  with  bmptr.  This 
strucutre  is  declared  global. 

(3)  speed  -  This  input  data  element  is  the  terminal  speed  of 
the  rocket  at  detonation.  This  strucutre  is  declared  global. 

(4)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4.2.6.1  -  CSU  MISSILE_M73_INIT 
LOCAL  DATA  DEFINITION  TABLE  describes  the  local  data 
elements  originating  in  the  CSU  missile_m73_init  and  not  used 
by  any  other  CSU. 
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TABLE  4.2.6.1  -  CSU  MISSILE_M73  INIT  LOCAL  DATA  DEHNITION 

TABLE 


Name 

i 

data_tmp 

descript 

fp 

Description 

array  index 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

float 

character 

array 

file  pointer 

Represent- 

decimal 

real  number 

character 

directory 

ation 

number 

string 

pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Non- 

dimension-al 

Variable 

Notre 

None 

Limit/range 

0-99 

Variable 

N/A 

N/A 

Precision 

single 

single 

N/A 

N/A 

TABLE  4.2.6.1  -  CSU  MISSILE_M73  INIT  LOCAL  DATA  DEHNITION 

TABLE  [CONTINUED] 


Name 

Description 

impact  point 
for  the  M73 

displacement 
from  the 
target  of  the 
impact  point 

Type 

VECTOR 

VECTOR 

Represent- 

X,Y,Z 

X,  Y,Z 

ation 

coordinates 

Size 

N/A 

N/A 

Unit  of 

map 

map 

Measure 

coordinates 

coordinates 

Limit/range 

N/A 

N/A 

Precision 

mEssssm 

nmsssmm 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_m73_init. 

(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  m73  missile  from  the 
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"simnet/data/sub_m73.d"  data  file  is  executed.  This  data 
determines  the  performance  limitations  and 
characteristics  of  the  m73  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/sub_m73.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  sub_m73_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_m73_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 
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(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  missile_util_comm_release_sub_munition.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(8)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_m73_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

bmptr 

sub_mun 

speed 

time 

impact,  timer 
impact.distance 
impact_pt[31 
location[3] 

MSL_TYPE_BALUSTIC 

SUB_MUN_IMPACT 

zero_velocity 


h.  Logic  flow.  The  CSU  missile_m73_init  is  called  by  the  CSU 
missile_hydra_fly_rockets.  See  Appendix  A  -  RWA  AireNet 
Call  Tree  Structure.  Execution  of  the  CSU  missile_m73_init  is 
done  for  each  hydra  rocket  flyout. 

Open  m73  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file 
Set  index  to  zero. 

While  record  not  end-of-file, 

sub_m73_char[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 
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Close  data  file. 

Set  time  =  0 
Set  impact.timer  =  0 
Set  impact.distance  =  speed 
Get  point  under  sub-munition  release  point 
Set  impact_pt[Xl  =  location[X] 

Set  impact_pt[Y]  =  location[Y] 

Set  impact_pt[zj  =  10.0 

Call  missiie_util_comm_release_sub_munition 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_m73_init. 

(1)  Data  structure  sub_m73_char.  This  shared  data  structure 
holds  the  performance  limitations  and  characteristics  for 
the  m73  missile.  The  data  structure  is  an  array  of  3 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.54.  - 
SUBMUNITIONS  M73  CHARACTERISTICS  DATA 
ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 
of  the  CSU  missile_m73_init. 

(1)  Data  file  ’’simnet/data/sub_m73.d".  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  m73  missile.  The  data  file  consists  of  a  maximum 
of  3  records.  Access  of  the  file  is  "read  only"  and 
sequential.  Each  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
sub_m73_char  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.54.  -  SUBMUNITIONS  M73  CHARACTERISTICS 
DATA  ARRAY.  The  second  field  is  for  documentation 
purposes  only. 

Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_m73_init. 
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4.2.7.  CSU  missile_flechette_init. 

The  CSU  missile_flechette_init  reads  flechette  data  from  data  files  and 
initializes  the  1)  performance  limitations  data  array  and  2)  the  speed  after 
release  polynomial  coefficients  array  to  behave  according  to  sub_munitions 
type  of  munition_US_Flechette_60.  The  following  subparagraphs  describe 
the  design  information  for  the  CSU  missile_flechette_init. 

4.2.7.1.  CSU  missile_flechette_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.2.7.2.  CSU  missile_flechette_init  design. 

The  CSU  missile_flechette_init  is  coded  in  the  ANSI  'C  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  missile_flechette_init.  For  a  complete  listing,  see 
Appendix  O  -  Source  Code  Listing  For  sub_flech.c. 

a.  Input /output  data  elements. 

(1)  bmptr  -  This  input  data  element  is  a  pointer  to  a 
BALLISTIC_MISSILE  structure  that's  ammo-type  is 
Flechette,  i.e.,  it  releases  sub-munitions  type  of 
munition_US_Flechette_60.  This  structure  is  declared 
global. 

(2)  sub_mun  -  This  input  data  element  is  a  pointer  to  a 
BALLISTIC_SUB_MUN  structure  associated  with  bmptr. 
This  element  is  declared  global. 

(3)  init_speed  -  This  input  data  element  is  the  terminal  speed 
of  the  rocket  and  assigned  as  the  initial  speed  of  the 
flechettes.  This  element  is  declared  global. 

(4)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4.2.7. 1  -  CSU 
MISSILE_FLECHETTE_INIT  LOCAL  DATA  DEFINITION 
TABLE  describes  the  local  data  elements  originating  in  the  CSU 
missile_flechette_init  and  not  used  by  any  other  CSU. 
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TABLE  4.2.7.1  -  CSU  MISSILE_FLECHETTE_INIT  LOCAL  DATA 

DEFINITION  TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

ip 

Descrip¬ 

tion 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Non-dimen¬ 

sional 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

Precision 

mmsmm 

■Bgl 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_flechette_init. 

(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  flechette  from  the 

"simnet/data/sub_flec.d"  data  file  is  executed.  This  data 
determines  the  performance  limitations  and 
characteristics  of  the  flechette  during  real-time  execution. 
Access  of  the  file  is  "read  only". 

The  "simnet/data/sub_flec.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  sub_flech_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
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character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  burn 
sp)eed  coefficients  data  from  the  "simnet/data/flec_spd.d" 
data  file  is  executed.  This  data  determines  bum  speed 
polynomial  coefficient  data  used  during  real-time 
execution  to  compute  the  speed  of  the  flechette  after 
release  for  the  flechette  flyout.  Access  of  the  file  is  "read 
only". 

The  "simnet/data/flec_spd.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  variable  sub_flech_poly_deg. 
The  second  element  of  the  first  record  is  assigned  to  the 
temporary  character  string.  The  local  array  index  is  set  to 
zero.  Then,  each  record  is  scanned  and  the  first  field  is 
assigned  to  a  temporary  float  data  storage.  If  the  value  of 
the  temporary  float  data  is  not  the  end-of-file,  the 
temporary  float  data  is  assigned  to  the  current  indexed 
flechette_speed_coef  element.  The  remainder  of  the 
record  is  assigned  to  the  temporary  character  string.  The 
array  index  is  incremented  by  one  and  the  next  record  is 
scanned.  If  the  value  of  the  temporary  float  data  is  the 
end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_flechette_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 
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(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  vec_scale.  This  CSU  scales  the  argument  vector. 
This  CSU  existed  within  the  original  c^e  and  is  not 
documented  herein. 

(8)  CSU  missile_util_comm_reiease_sub_munition.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(9)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU 
missile_flechette_init.  These  variables  existed  in  the 
original  code  and  will  not  be  documented  herein. 

bmptr 

sub_mun 

init_speed 

distance 

pptr 

orientation 

velocity 

MSL_TYPE_BALUSTIC 
SUB_MUN_CANISTEK 
zero  vector 
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h.  Logic  flow.  The  CSU  missile_flechette_init  is  called  by  the  CSU 
missile_hydra_fly_rockets.  See  Appendix  A  -  RWA  AireNet 
Call  Tree  Structure.  Execution  of  the  CSU  missile_m73_init  is 
done  for  each  hydra  rocket  flyout.. 

Open  flechette  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

sub_flech_char  [index] =f  irs  t_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  sub_flech_poly_deg=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

flechette_speed_coef[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  time  =  0 

Set  dart  =  address  of  sub_mun 
Set  distance  =  0.0 
Set  init_speed  =  init_speed 
Set  pptr  =  NULL 

Scale  the  orientation  vector;  call  vec_scale 
Call  missile_util_comm_release_sub_munition 


i.  Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_flechette_init. 

(1)  Data  structure  sub_flech_char.  This  shared  data  structure 
holds  the  performance  limitations  and  characteristics  for 
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the  flechette.  The  data  structure  is  an  array  of  3  elements. 
The  data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.55.  -  SUBMUNITIONS 
FLECHETTE  CHARACTERISTICS  DATA  ARRAY. 

(2)  Data  structure  flechette_speed_coef.  This  shared  data 
structure  holds  the  burn  speed  coefficients  for  the  bum 
speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.56.  -  FLECHETTE 
SPEED  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  missile_flechette_init. 

(1)  Data  file  ''simnet/data/sub_flec.d".  This  data  file  includes 

the  performance  limitations  and  characteristics  of  the 
flechette.  The  data  file  consists  of  a  maximum  of  3 
records.  Access  of  the  file  is  "read  only"  and  sequential. 
Each  record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  global  sub_flech_char  data 
array.  These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.55.  - 

SUBMUNITIONS  FLECHETTE  CHARACTERISTICS 
DATA  ARRAY.  The  second  field  is  for  documentation 
purposes  only. 

(2)  Data  file  "simnet/data/flec_spd.d".  This  data  file  includes 
the  burn  speed  degree  of  polynomial  and  coefficients  data 
for  the  fle^ette.  Tlte  data  file  consists  of  a  maximum  of  6 
records.  Access  of  the  file  is  "read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
the  global  variable  sub_flech_poly_deg.  This  field  has  an 
integer  value.  The  second  field  is  for  documentation 
purposes  only. 
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Each  remaining  records  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
flechette_speed_coef  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.56.  -  FLECHETTE  SPEED  DATA  ARRAY.  The  second 
field  is  for  documentation  purposes  only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_flechette_init. 

4.3.  CSC  controls_restore_controls. 

The  following  subparagraphs  identify  and  describe  the  CSU  added  to  this  CSC. 
The  CSC  controls_restore_controls  uses  other  CSUs  that  existed  in  the 
original  code,  were  not  modified,  and  are  not  documented  herein. 

4.3.1.  CSU  controls.radios.init. 

The  CSU  controls_radiosJnit  sets  the  pilot  and  copilot  radio  kill  output  to 
off.  This  CSU  initializes  the  radio  disable  output  values.The  following 
subparagraphs  describe  the  design  information  for  the  CSU 
controls_radiosJnit. 

4.3.1.1.  CSU  controls_radios_init  design  specification/constraints. 

This  CSU  is  developed  to  allow  the  radios  on  the  RWA  devices  to  be  disabled 
upon  ownship  death.  This  CSU  sets  the  two  signals  output  to  the  associated 
hardware  to  the  do  not  disable  state  (OFF). 

4.3.1.2.  CSU  controls_radios_init  design. 

The  CSU  control_radios_init  is  coded  in  the  ANSI  'C  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  controls_radios_init.  The  function  depends  on  two  idc 
positions  being  connected  via  hardware  and  the  associated  values  set  in  the 
rwhard.p  file  which  must  be  prepocessed. 


a.  Input/output  data  elements.  None. 

b.  Local  data  elements.  None. 

c.  Interrupts  and  signals.  None. 
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d.  Algorithms.  None. 

e.  Error  handling.  None. 

f.  Data  conversion.  None. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
controls_radios_init. 

(1)  CSU  idc_output_set.  This  function  call  sets  the  hardware 
output  signals  to  not  disable  radios.  This  CSU  existed 
within  the  original  code  is  is  not  documented  herin. 

(2)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  controls_radios_init. 

PIL_RADIO_KILL 

CPG_RADIO_KILL 

OUTPUT.OFF 

h-  Logic  flow.  The  CSU  controls_radios_init  is  called  by  the  CSU 
controls_restore_controls.  See  Appendix  A  -  RWA  AireNet  Call 
Tree  Structure.  Execution  of  the  CSU  controls_radios_init  is 
normally  done  only  once  during  CSCI  initialization. 

Call  idc_output_set 

Set  PIL_RADIO_KILL  =  OUTPUT_OFF 
Set  CPG_RADIO_KILL  =  OUTPUT_OFF 

End 


i.  Data  structures.  The  following  shared  data  structures  are  used  by 

the  CSU  controls_radios_init. 

(1)  Data  structure  PIL_RADIO_KILL.  This  data  structure 
already  existed  and  is  thus  not  documeted  herin. 

(2)  Data  structure  CPG_RADIO_KILL.  This  data  structure 
already  existed  and  is  thus  not  documeted  herin. 

(3)  Data  structure  OUTPUT_SET.  This  data  structure  already 
existed  and  is  thus  not  documeted  herin 
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j .  Local  data  files.  None. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
controls_radios_init. 

4.4.  CSC  £ail_vehicle_is_destroyed. 

The  following  subparagraphs  identify  and  describe  the  CSU  added  to  this  CSC. 
The  CSC  fail_vehicle_is_destroyed  uses  other  CSUs  that  existed  in  the 
original  code,  were  not  modified,  and  are  not  documented  herein. 


4.4.1.  CSU  controls_kiU_radios. 

The  CSU  controls_kill_radios  sets  the  pilot  and  copilot  radio  kill  output  to 
off.  This  CSU  sets  the  radio  disable  output  values.  The  following 
subparagraphs  describe  the  design  information  for  the  CSU 
controls_kill_radios. 

4.4.1.1.  CSU  controls_kill_radios  design  specification/constraints. 

This  CSU  is  developed  to  allow  the  radios  on  the  RWA  devices  to  be  disabled 
upon  ownship  death.  This  CSU  sets  the  two  signals  output  to  the  associated 
hardware  to  the  disable  state  (ON). 

4.4.1.2.  CSU  controls_kill_radios  design. 

The  CSU  control_radios_init  is  coded  in  the  ANSI  'C  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  controls_kill_radios.  The  function  depends  on  two  idc 
positions  being  connected  via  hardware  and  the  associated  values  set  in  the 
rwhard.p  file  which  must  be  prepocessed. 

a.  Input/output  data  elements.  None. 

b.  Local  data  elements.  None. 

c.  Interrupts  and  signals.  None. 

d.  Algorithms.  None. 

e.  Error  handling.  None. 

f.  Data  conversion.  None. 
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g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
controls_kill_radios. 

(1)  CSU  idc_output_set.  This  function  call  sets  the  hardware 
output  signals  to  disable  radios.  This  CSU  existed  within 
the  original  code  is  is  not  documented  herin. 

(2)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  controls_kill_radios. 

PIL_RADIO_KILL 

CPG_RADIO_KILL 

OUTPUT_ON 

h.  Logic  flow.  The  CSU  controls_kill_radios  is  called  by  the  CSU 
fall_cat_kill.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  controls_kill_radios  is 
normally  done  only  once  during  CSCI  initialization. 

Call  idc_output_set 

Set  PIL_RADIO_KILL  =  OUTPUT_ON 
Set  CPG_RADIO_KILL  =  OUTPUT_ON 

End 


i.  Data  structmes.  The  following  shared  data  structures  are  used  by 
the  CSU  controls_kill_radios. 

(1)  Data  structure  PIL_RADIO_KILL.  This  data  structure 
already  existed  and  is  thus  not  documeted  herin. 

(2)  Data  structure  CPG_RADIO_KILL.  This  data  structure 
already  existed  and  is  thus  not  documeted  herin. 

(3)  Data  structure  OUTPUT_SET.  This  data  structure  already 
existed  and  is  thus  not  documeted  herin 

j.  Local  data  files.  None. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
controls_kill_radios. 

4.5.  Additional  CSUs. 
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The  following  subparagraphs  identify  and  describe  additional  CSUs  that  were 
modified  for  data  reads  under  this  delivery  order.  These  CSUs  would  usually 
replace  one  of  the  missile  CSUs  for  inclusion  within  a  build  having  the 
desired  missile  system  characteristics.  The  following  CSUs  are  not  part  of  the 
baseline  build,  and  are  documented  here  for  convenience.  These  CSUs  are 
generally  called  by  CSC  weapons_init  during  initialization  of  the  CSCI. 

4.5.1.  CSU  missile_adat_init. 

The  CSU  missile_adat_init  reads  adat  missile  data  from  data  files  and 
initializes  the  1)  performance  limitations  and  characteristics  data  array,  2)  the 
polynomial  degree  array,  3)  the  burn  speed  polynomial  coefficients  array,  4) 
the  coast  speed  polynomial  coefficients  array,  5)  the  burn  turn,  maximum 
cosine  coefficients  array,  6)  the  coast  turn,  maximum  cosine  coefficients  array, 
and  7)  the  temporal  bias  coefficients  array.  This  CSU  copies  the  parameters 
into  variables  static  to  the  miss_adat.c  module  and  initializes  the  state  of  all 
the  missiles.  This  CSU  also  initializes  the  proximity  fuze.  The  following 
subparagraphs  describe  the  design  information  for  the  CSU  mi' sile_adat_init. 

4.5.1.1.  CSU  missile.adat.init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.5.1.2.  CSU  missile.adat.init  design. 

The  CSU  missile_adat_init  is  coded  in  the  ANSI  'C  prograiiuning  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  missile_adat_init.  For  a  complete  listing,  see  Appendix  E  -  Source 
Code  Listing  For  miss_adat.c. 

a.  Input/output  data  elements. 

(1)  missile_array  -  This  input  data  structure  is  a  pointer  to  the 
array  of  ADAT  missiles  defined  in  vehicle  specific  code.. 
This  structure  is  declared  global. 

(2)  num_missiles  -  This  input  data  element  is  the  number  of 
missiles  defined  in  the  missile_array.  This  element  is 
declared  global. 

(3)  No  output  data  elements  are  declared. 
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b.  T  nral  data  elements.  TABLE  4.5. 1.1  -  CSU  MISSILE. AD AT.INIT 
LOCAL  DATA  DEFINITION  TABLE  describes  the  local  data 
elements  originating  in  the  CSU  missile.adat.init  and  not  used 
by  any  other  CSU. 
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TABLE  4.5.1.1  -  CSU  MISSILE.ADATJNIT  LOCAL  DATA  DEFINITION 

TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Descrip- 

tior. 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent* 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Non- 

dimension-al 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

Precision 

mmsmm 

mmmm 

wmmmi 

N/A 

N/A 

TABLE  4.5.1.1  -  CSU  MISSILE^ADAT  INIT  LOCAL  DATA  DEHNITION 

TABLE  [CONTINUED] 


Name 

mag 

Descrip¬ 

tion 

scale  of 
magnetic 
orient¬ 
ation  vector 

float 

Represent¬ 

ation 

real  number 

Size 

N/A 

Unit  of 
Measure 

None 

N/A 

1  Precision 

wmssmm 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_adat_init. 
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(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  adat  missile  from  the 
"simnet/data/ms_ad_ch.d"  data  file  is  executed.  This 
data  determines  the  performance  limitations  and 
characteristics  of  the  adat  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_ad_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  adat_miss_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  burn 
speed  coefficients  data  from  the 
"simnet/data/ms_ad_bs.d"  data  file  is  executed.  This  data 
determines  bum  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
adat  missile  during  engine  burn  for  the  adat  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_ad_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
adat_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  adat_burn_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
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character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"simnet/data/ms_ad_cs.d"  data  file  is  executed.  This  data 
determines  coast  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
adat  missile  after  engine  burn  for  the  adat  missile  flyout. 
Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_ad_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewoimd  and  the  first  record  is  read  for  the 
first  field  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  second  element  of  the 
adat_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  adat_coast_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(4)  An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  during  engine  burn 
data  from  the  "simnet/data/ms_ad_bt.d"  data  file  is 
executed.  This  data  defines  the  maximum  cosine 
coefficients  during  real-time  execution  to  compute  the 
maximum  cosine  of  a  turn  during  engine  burn  of  the  adat 
missile  flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_ad_bt.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
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first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  third  element  of  the 
adat_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  adat_burn_turn_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(5)  An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  data  after  engine  bum 
from  the  ''simnet/data/ms_ad_ct.d"  data  file  is  executed. 
This  data  defines  the  maximum  cosine  coefficients  during 
real-time  execution  to  compute  the  maximum  cosine  of  a 
turn  after  engine  bum  of  the  adat  missile  flyout.  Access  of 
the  file  is  "read  only". 

The  "simnet/data/ms_ad_ct.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  fourth  element  of  the 
adat_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  adat_coast_turn_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(6)  An  algorithm  to  read  polynomial  degree  data  and 
temporal  bias  coefficients  data  from  the 
"simnet/data/ms_ad_tb.d"  data  file  is  executed.  This  data 
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defines  the  temporal  bias  coefficients  during  real-time 
execution  to  compute  the  temporal  bias  of  the  adat  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "siinnet/data/ms_ad_tb.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  fifth  element  of  the 
adat_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  adat_temp_bias_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened, 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_adat_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 
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CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5) 

CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6) 

CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7) 

CSU  missile_fuze_prox_init.  This  CSU  initializes  the 
proximity  fuze  for  the  adat  missile.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(8) 

CSU  sqrt.  This  CSU  computes  the  square  root  of  a  series  of 
arguments.  This  CSU  existed  within  the  original  code  and 
is  not  documented  herein. 

• 

(9) 

CSU  mat_copy.  This  CSU  copies  a  matrix.  This  CSU 
existed  within  the  original  code  and  is  not  documented 
herein. 

(10) 

Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_adat_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

missile_array 
num_missiles 
tube_C_sight_right[l  [] 
tube_C_sight_lef  t[]  [] 

h.  Logic  flow.  The  CSU  missile  adat  init  is  called  bv  the  CSU 

weapons_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  missile_adat_init  is  normally 
done  once  during  CSCI  initialization  and  is  performed 
sequentially. 

• 

Open  adat  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 
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While  record  not  end-of-file, 

adat_miss_char[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  burn  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 
Rewind  file. 

Get  first  field  of  first  record. 

Set  adat_miss_poly_deg[0]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

adat_burn_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 
Rewind  file. 

Get  first  field  of  first  record. 

Set  adat_miss_poly_deg[l3=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

adat_coast_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  burn  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 
Rewind  file. 

Get  first  field  of  first  record. 

Set  adat_miss_poly_deg[2]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

adat_burn_turn_coefflindex]=first_field 
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descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  adat_miss_poly_degl3]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

adat_coast_turn_coeff[index]=first_field 
descrip  t=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  temporal  bias  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  adat_miss_poly_deg[4]  =f irst_f ield 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

adat_temp_bias_coeffIindex]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  num_adats  -  num_missiles 
Set  adat_array  =  missile_array 
Set  mptr.state  =  ADAT_FREE 

Set  mptr.max_flight_time  =  ADAT_MAX_FLIGHT_TIME 
Set  mptr.max_tum_directions  =  1 

Initialize  the  proximity  fuze 

Initialize  the  tube-to-sight  transformation  matrices 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile  adat  init. 
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(1)  Data  structure  adat_nuss_char.  This  shared  data  structure 
holds  the  perfornnance  limitations  and  characteristics  for 
the  adat  missile.  The  data  structure  is  an  array  of  10 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.29.  -  ADAT 
MISSILE  CHARACTERISTICS  DATA  ARRAY. 

(2)  Data  structure  adat_miss_poly_deg.  This  shared  data 
structure  holds  the  polynomial  degree  data  defining  the 
size  if  the  polynomial  arrays  and  strucures  used  in  this 
CSU.  The  data  structure  is  an  array  of  5  elements.  The 
data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.30.  -  ADAT  MISSILE 
POLYNOMIAL  DEGREE  DATA  ARRAY. 

(3)  Data  structure  adat_burn_speed_coeff.  This  shared  data 

structure  holds  the  burn  speed  coefficients  for  the  burn 
speed  polynomial.  The  data  structure  is  an  array  of  10 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.31.  -  ADAT 
MISSILE  BURN  SPEED  DATA  ARRAY. 

(4)  Data  structure  adat_coast_speed_coeff.  This  shared  data 

structure  holds  the  coast  speed  coefficients  for  the  coast 
speed  polynomial.  The  data  structure  is  an  array  of  10 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.32.  -  ADAT 
MISSILE  COAST  SPEED  DATA  ARRAY. 

(5)  Data  structure  adat_burn_turn_coeff.  This  shared  data 
structure  holds  the  maximum  cosine  coefficients  for  a 
turn  during  engine  burn  for  the  burn  turn  polynomial. 
The  data  structure  is  an  array  of  10  elements.  The  data 
structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.33.  -  ADAT  MISSILE  BURN 
TURN  DATA  ARRAY. 
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(6)  Data  structure  adat_coast_turn_coeff.  This  shared  data 
structure  holds  the  maximum  cosine  coefficients  for  a 
turn  after  engine  bum  for  the  coast  turn  polynomial.  The 
data  structure  is  an  array  of  10  elements.  The  data 
structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.34.  -  AD  AT  MISSILE  BURN 
TURN  DATA  ARRAY. 

(7)  Data  structure  adat_temp_bias_coeff.  This  shared  data 
structure  holds  the  temporal  bias  coefficients  for  the 
temporal  bias  polynomial.  The  data  structure  is  an  array 
of  10  elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.35.  -  ADAT 
MISSILE  TEMPORAL  BIAS  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  missile_adat_init. 

(1)  Data  file  "simnet/data/ms_ad_ch.d".  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  adat  missile.  The  data  file  consists  of  a  maximum 
of  10  records.  Access  of  the  file  is  "read  only”  and 
sequential. 

Each  record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  global  adat_miss_char  data 
array.  These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.29.  -  ADAT  MISSILE 
CHARACTERISTICS  DATA  ARRAY.  The  second  field  is 
for  documentation  purposes  only. 

(2)  Data  file  "simnet/data/ms_ad_bs.d".  This  data  file 
includes  the  burn  speed  degree  of  polynomial  and 
coefficients  data  for  the  adat  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
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an  element  of  the  global  adat_miss_poly_deg  data  array. 
This  f’old  has  a  value  consistent  with  the  characteristics 
ouH’ned  in  TABLE  5.1.30.  -  ADAT  MISSILE 

Polynomial  degree  data  array.  The  second  field 

is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_burn_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.31.  -  ADAT  MISSILE  BURN  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(3)  Data  file  "simnet/data/ms_ad_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  adat  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  adat_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.30.  -  ADAT  MISSILE 

POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.32.  -  ADAT  MISSILE  COAST  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(4)  Data  file  "simnet/data/ms_ad_bt.d".  This  data  file 
includes  the  burn  turn  degree  of  polynomial  and 
coefficients  data  for  the  adat  missile.  The  data  file  consists 
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of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  adat_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.30.  -  ADAT  MISSILE 

POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_burn_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.33.  -  ADAT  MISSILE  BURN  TURN  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(5)  Data  file  "simnet/data/ms_ad_ct.d".  This  data  file 
includes  the  coast  turn  degree  of  polynomial  and 
coefficients  data  for  the  adat  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  adat_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.30.  -  ADAT  MISSILE 

POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.34.  -  ADAT  MISSILE  COAST  TURN  DATA 
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ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(6)  Data  file  "simnet/data/ms_ad_tb.d".  This  data  file 
includes  the  coast  turn  degree  of  polynomial  and 
coefficients  data  for  the  adat  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  adat_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.30.  -  ADAT  MISSILE 

POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.35.  -  ADAT  MISSILE  TEMPORAL  BIAS  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_adat_init. 


4.5.2.  CSU  missile_atgm_init. 

The  CSU  missile_atgm_init  reads  tow  missile  data  from  data  files  and 
initializes  the  1)  performance  limitations  and  characteristics  data  array,  2)  the 
polynomial  degree  array,  3)  the  bum  speed  polynomial  coefficients  array,  4) 
the  coast  speed  polynomial  coefficients  array,  5)  the  burn  speed  turn, 
maximum  cosine  coefficient  strucure,  and  6)  the  coast  speed  turn,  maximum 
cosine  coefficient  strucure.  The  following  subparagraphs  describe  the  design 
information  for  the  CSU  missile_atgm_init. 

This  CSU  was  built  using  the  CSU  missiie_tow_init  and  retains  the  same 
variable  names  from  that  CSU. 
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4.5^.1.  CSU  missile_atgm_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.52.2.  CSU  missile_atgm_init  design. 

The  CSU  missile_atgm_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  missile_atgm_init.  For  a  complete  listing,  see  Appendix  F  - 
Source  Code  Listing  For  miss_atgm.c. 

a.  Input/output  data  elements. 

(1)  tptr  -  This  input  data  element  is  a  pointer  to  the  array  of 
missiles  to  be  initialized.  This  element  is  declared  global. 

(2)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4. 5. 2.1  -  CSU 

MISSILE_ATGM_INIT  LOCAL  DATA  DEFINITION  TABLE 
describes  the  local  data  elements  originating  in  the  CSU 
missile_atgm_init  and  not  used  by  any  other  CSU. 
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TABLE  4.5^.1  -  CSU  MISSILE_ATGM_INIT  LOCAL  DATA  DEFINITION 

TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Descrip¬ 

tion 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

1  Precision 

wms^am 

wmmam 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_atgm_init. 

(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  tow  missile  from  the 
"simnet/data/ms_at_ch.d"  data  file  is  executed.  This  data 
determines  the  performance  limitations  and 
characteristics  of  the  tow  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_at_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  tow_miss_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
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character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  burn 
speed  coefficients  data  from  the 
"simnet/data/ms_at_bs.d"  data  file  is  executed.  This  data 
determines  burn  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
tow  missile  during  engine  bum  for  the  tow  missile  flyout. 
Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_at_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewotmd  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  tanporary  float  data  is  assigned  to  the 
current  indexed  tow_burn_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"simnet/data/ms_at_cs.d"  data  file  is  executed.  This  data 
determines  coast  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
tow  missile  after  engine  burn  for  the  tow  missile  flyout. 
Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_at_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
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first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  third  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scaimed  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  tow_coast_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(4)  An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  during  engine  burn 
data  from  the  "simnet/data/ms_at_bt.d"  data  file  is 
executed.  This  data  defines  the  maximum  cosine 
coefficients  during  real-time  execution  to  compute  the 
maximum  cosine  of  a  turn  in  each  axis  during  engine 
bum  of  the  tow  missile  flyout.  Access  of  the  file  is  "read 
only". 

The  "simnet/data/ms_at_bt.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  third  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero  for  the  side  axis,  with 
the  limit  set  to  the  degree.  Then,  each  record  is  scanned 
and  the  first  field  is  assigned  to  a  temporary  float  data 
storage,  and  assigned  to  the  current  indexed 
tow_burn_tum_coeff.side_coeff  element.  The  remainder 
of  the  record  is  assigned  to  the  tempxDrary  character  string. 
The  array  index  is  incremented  by  one  and  the  next  record 
is  scanned  and  stored  until  the  degree  limit  is  hit.  The 
process  is  repeated  for  the  up  and  down  axes.  Then,  the 
file  is  closed. 
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(5)  An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  data  after  engine  burn 
from  the  "simnet/data/ms_at_ct-d"  data  file  is  executed. 
This  data  defines  the  maximum  cosine  coefficients  during 
real-time  execution  to  compute  the  maximum  cosine  of  a 
turn  in  each  axis  after  engine  burn  of  the  tow  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_at_ct.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewoimd  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  fourth  element  of  the 
tow_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero  for  the  side  axis,  with 
the  limit  set  to  the  degree.  Then,  each  record  is  scanned 
and  the  first  field  is  assigned  to  a  temporary  float  data 
storage,  and  assigned  to  the  current  indexed 
tow_coast_turn_coeff.side_coeff  element.  The  remainder 
of  the  record  is  assigned  to  the  temporary  character  string. 
The  array  index  is  incremented  by  one  and  the  next  record 
is  scanned  and  stored  until  the  degree  limit  is  hit.  The 
process  is  repeated  for  the  up  and  down  axes.  Then,  the 
file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_atgm_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 
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(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_atgm_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

tptr 

mptr.state 

mptr.max_flight_time 

mptr.max_turn_directions 

h.  Logic  flow.  The  CSU  missile_atgm_init  is  called  by  the  CSU 
weapons_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  missile_atgm_init  is  normally 
done  only  once  during  CSCI  initialization  and  is  performed 
sequentially. 

Open  atgm  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

tow_miss_char[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 
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Open  burn  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  tow_miss_poly_deg[0]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

tow_burn_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  tow_miss_poly_degIl]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

tow_coast_speed_co€ff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  burn  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  tow_miss_poly_deg[21=first_field 
Set  descript=second_field 

For  index  from  0  to  tow_iniss_poly_deg[2],  single  step, 

tow_burn_turn_coeff.side_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_miss_poly_deg[2],  single  step, 
tow_burn_turn_coeff.up_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_miss_poly_deg[2],  single  step, 

tow_burn_turn_coeff.down_coeff[index]  =  first_field 
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descript=second_field 
End  for  loop. 

Close  data  file. 

Open  coast  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  to w_miss_poly_deg  [3] =first_f ield 
Set  descript=second_field 

For  index  from  0  to  tow_miss_poly_deg[3],  single  step, 

tow_coast_turn_coeff.side_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_miss_poly_deg[3],  single  step, 
tow_coast_tum_coeff.up_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

For  index  from  0  to  tow_miss_poly_degl3],  single  step, 

tow_coast_tum_coeff.down_coeff[index]  =  first_field 
descript=second_field 
End  for  loop. 

Close  data  file. 

Set  mptr.state  *  FALSE 

Set  mptr.max_flight_time  =  tow_miss_char[2] 

Set  mptr.max_tum_directions  =  3 

Set  the  burn  and  turn  coefficients  as  adjusted  by  the  atgm  turn 
factor;  adjusts  the  data  from  tow  to  atgm  missile 
performance 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_atgm_init. 

(1)  Data  structure  tow_miss_char.  This  shared  data  structure 
holds  the  performance  limitations  and  characteristics  for 
the  tow  missile.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.36.  -  ATGM 
MISSILE  CHARACTERISTICS  DATA  ARRAY. 
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(2)  Data  structure  tow_miss_poly_deg.  This  shared  data 
structure  holds  the  polynomial  degree  data  defining  the 
size  if  the  polynomial  arrays  and  strucures  used  in  this 
CSU.  The  data  structure  is  an  array  of  5  elements.  The 
data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.37.  -  ATGM  MISSILE 
POLYNOMIAL  DEGREE  DATA  ARRAY. 

(3)  Data  structure  tow_burn_speed_coeff.  This  shared  data 

structure  holds  the  burn  speed  coefficients  for  the  bum 
speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.38.  -  ATGM 
MISSILE  BURN  SPEED  DATA  ARRAY. 

(4)  Data  structure  tow_coast_speed_coeff.  This  shared  data 

structure  holds  the  coast  speed  coefficients  for  the  coast 
speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.39.  -  ATGM 
MISSILE  COAST  SPEED  DATA  ARRAY. 

(5)  Data  structure  tow_burn_tum_coeff.  This  shared  data 
structure  holds  the  maximum  cosine  coefficients  for  a 
turn  in  each  axis  during  engine  burn  for  the  burn  turn 
polynomial.  The  data  structure  is  an  array  of  2  elements 
for  each  axis.  There  are  three  axes:  side,  up,  and  down. 
The  data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.40.  -  ATGM  MISSILE  BURN 
TURN  DATA  STRUCTURE. 

(6)  Data  structure  tow_coast_turn_coeff.  This  shared  data 
structure  holds  the  maximum  cosine  coefficients  for  a 
turn  in  each  axis  during  engine  burn  for  the  burn  turn 
polynomial.  The  data  structure  is  an  array  of  4  elements 
for  each  axis.  There  are  three  axes:  side,  up,  and  down. 
The  data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.41.  -  ATGM  MISSILE  COAST 
TURN  DATA  STRUCTURE. 
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Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  missile_atgm_init. 

(1)  Data  file  "simnet/data/ms_at_ch.d".  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  tow  missile.  The  data  file  consists  of  a  maximum  of 
5  records.  Access  of  the  file  is  "read  only"  and  sequential. 

Each  record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  global  tow_miss_char  data 
array.  These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.36.  -  ATGM  MISSILE 
CHARACTERISTICS  DATA  ARRAY.  The  second  field  is 
for  documentation  purposes  only. 

(2)  Data  file  "simnet/data/ms_at_bs.d".  This  data  file 
includes  the  bum  speed  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  6  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.37.  -  ATGM  MISSILE 
POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_burn_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.38.  -  ATGM  MISSILE  BURN  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 
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(3)  Data  file  "simnet/data/ms_at_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  6  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.37.  -  ATGM  MISSILE 

POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.39.  -  ATGM  MISSILE  COAST  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(4)  Data  file  "simnet/data/ms_at_bt.d".  This  data  file 
includes  the  burn  turn  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  7  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.37.  -  ATGM  MISSILE 

POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
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tow_burn_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.40.  -  ATGM  MISSILE  BURN  TURN  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(5)  Data  file  "simnet/data/ms_at_ct.d".  This  data  file 
includes  the  coast  turn  degree  of  polynomial  and 
coefficients  data  for  the  tow  missile.  The  data  file  consists 
of  a  maximum  of  13  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  tow_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.37.  -  ATGM  MISSILE 

POLYNOMIAL  DEGREE  DATA  ARRAY.  The  second  field 
is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.41.  -  ATGM  MISSILE  COAST  TURN  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_atgm_init. 


4.53.  CSU  missile_kem_init. 

The  CSU  missile_kem_init  reads  kem  missile  data  from  data  files  and 
initializes  the  1)  performance  limitations  and  characteristics  data  array,  2)  the 
polynomial  degree  array,  3)  the  bum  speed  polynomial  coefficients  array,  4) 
the  coast  speed  polynomial  coefficients  array,  5)  the  burn  turn,  maximum 
cosine  coefficients  array,  6)  the  coast  turn,  maximum  cosine  coefficients  array, 
and  7)  the  temporal  bias  coefficients  array.  This  CSU  copies  the  parameters 
into  variables  static  to  the  miss  kem.c  module  and  initializes  the  state  of  all 
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the  missiles.  The  following  subparagraphs  describe  the  design  information 
for  the  CSU  missile_kem_init. 

4.5.3.1.  CSU  missile_kem_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.5.3.2.  CSU  missile_kem_init  design. 

The  CSU  missile_kem_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  missile_kem_init.  For  a  complete  listing,  see  Appendix  H  - 
Source  Code  Listing  For  miss_kem.c. 

a.  Input /output  data  elements. 

(1)  missile_array  -  This  input  data  structure  is  a  pointer  to  the 
array  of  KEM  missiles  defined  in  vehicle  specific  code.. 
This  structure  is  declared  global. 

(2)  num_missiles  -  This  input  data  element  is  the  number  of 
missiles  defined  in  the  missile_array.  This  element  is 
declared  global. 

(3)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4.5.3. 1  -  CSU  MISSILE_KEM_INIT 
LOCAL  DATA  DEFINITION  TABLE  describes  the  local  data 
elements  originating  in  the  CSU  missile_kem_init  and  not  used 
by  any  other  CSU. 
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TABLE  4.5.3.1  -  CSU  MISSILE_KEM_INIT  LOCAL  DATA  DEFINITION 

TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Descrip¬ 

tion 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Variable 

Variable 

None 

None 

fTf.illU/lififl 

0-99 

WAuy.JM 

Variable 

N/A 

N/A 

1  Precision 

■Emi 

wmmam 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 


d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_kem_init. 


(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  kem  missile  from  the 
"simnet/data/ms_km_ch.d"  data  file  is  executed.  This 
data  determines  the  performance  limitations  and 
characteristics  of  the  kem  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_km_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  kem_miss_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
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character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  bum 
speed  coefficients  data  from  the 
"simnet/data/ms_km_bs-d"  data  file  is  executed.  This 
data  determines  burn  speed  polynomial  coefficient  data 
used  during  real-time  execution  to  compute  the  speed  of 
the  kem  missile  during  engine  burn  for  the  kem  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_km_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
kem_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  kem_burn_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"simnet/data/ms_km_cs.d"  data  file  is  executed.  This 
data  determines  coast  speed  polynomial  coefficient  data 
used  during  real-time  execution  to  compute  the  speed  of 
the  kem  missile  after  engine  burn  for  the  kem  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_km_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewoimd  and  the  first  record  is  read  for  the 
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first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  second  element  of  the 
kem_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  kem_coast_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  during  engine  burn 
data  from  the  ’’simnet/data/ms_km_bt.d"  data  file  is 
executed.  This  data  defines  the  maximum  cosine 
coefficients  during  real-time  execution  to  compute  the 
maximum  cosine  of  a  turn  during  engine  burn  of  the  kem 
missile  flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_km_bt.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  third  element  of  the 
kem_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  kem_burn_turn_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

An  algorithm  to  read  polynomial  degree  data  and 
maximum  turn  cosine  coefficients  data  after  engine  bum 
from  the  "simnet/data/ms_km_ct.d"  data  file  is  executed. 
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This  data  defines  the  maximum  cosine  coefficients  during 
real-time  execution  to  compute  the  maximum  cosine  of  a 
turn  after  engine  burn  of  the  kem  missile  flyout.  Access 
of  the  file  is  "read  only". 

The  "simnet/data/ms_km_ct.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewoimd  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  fourth  element  of  the 
kem_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  kem_coast_turn_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_kem_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 
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(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_kem_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

missile_array 
num_missiles 
num_kems 
kem_array 
mptr  .state 

mptr.max_flight_time 

mptr.max_turn_directions 

h.  Logic  flow.  The  CSU  missile_kem_init  is  called  by  the  CSU 

weapons_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 

Structure.  Execution  of  the  CSU  missile_kem_init  is  during 

initialization  and  is  performed  sequentially. 

Open  kem  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

kem_miss_char[index]=first_field 
descript=second_field 
increment  index  by  one 

End  while. 

Close  data  file. 

Open  burn  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 
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Rewind  file. 

Get  first  field  of  first  record. 

Set  kem_miss_poly_deg[0]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

kem_burn_speed_coeff[index]=first_field 
descrip  t=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 
Rewind  file. 

Get  first  field  of  first  record. 

Set  kem  miss_poly_deg[  1  ]  =f irst_f ield 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

kem_coast_speed_coeff[index]=first_field 
descript=second_field 
inaement  index  by  one 
End  while. 

Close  data  file. 

Open  burn  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 
Rewind  file. 

Get  first  field  of  first  record. 

Set  kem_miss_poly_deg[2]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

kem_burn_turn_coefflindex]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  turn  data  file. 

If  file  is  null,  print  error  message  and  exit. 
Rewind  file. 

Get  first  field  of  first  record. 
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Set  kem_miss_poly_degl3]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

kem_coast_turn_coe£f[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  num_kems  =  num_missiles 
Set  kem_array  =  missile_array 
Set  mptr.state  =  KEM_FREE 

Set  mptr.max_flight_time  =  KEM_MAX_FLIGHT_TIME 
Set  mptr.max_tum_directions  =  1 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_kem_init. 

(1)  Data  structure  kem_miss_char.  This  shared  data 
structure  holds  the  performance  limitations  and 
characteristics  for  the  kem  missile.  The  data  structure  is 
an  array  of  10  elements.  The  data  structure  is  given 
default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.42.  - 
KEM  MISSILE  CHARACTERISTICS  DATA  ARRAY. 

(2)  Data  structure  kem_miss_poly_deg.  This  shared  data 
structure  holds  the  polynomial  degree  data  defining  the 
size  if  the  polynomial  arrays  and  strucures  used  in  this 
CSU.  The  data  structure  is  an  array  of  5  elements.  The 
data  structure  is  given  default  initialization  during 
compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.43.  -  KEM  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY. 

(3)  Data  structure  kem_bum_speed_coeff.  This  shared  data 
structure  holds  the  burn  speed  coefficients  for  the  bum 
speed  polynomial.  The  data  structure  is  an  array  of  10 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.44.  -  KEM  MISSILE 
BURN  SPEED  DATA  ARRAY. 
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(4)  Data  structure  kem_coast_speed_coeff.  This  shared  data 
structure  holds  the  coast  speed  coefficients  for  the  coast 
speed  polynomial.  The  data  structure  is  an  array  of  10 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.45.  -  KEM  MISSILE 
COAST  SPEED  DATA  ARRAY. 

(5)  Data  structure  kem_burn_turn_coeff.  This  shared  data 

structure  holds  the  maximum  cosine  coefficients  for  a 
turn  during  engine  burn  for  the  burn  turn  polynomial. 
The  data  structure  is  an  array  of  10  elements.  The  data 
structure  is  given  default  initialization  during 

compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.46.  -  KEM  MISSILE  BURN  TURN 
DATA  ARRAY. 

(6)  Data  structure  kem_coast_turn_coeff.  This  shared  data 

structure  holds  the  maximum  cosine  coefficients  for  a 
turn  after  engine  bum  for  the  coast  turn  polynomial.  The 
data  structure  is  an  array  of  10  elements.  The  data 
structure  is  given  default  initialization  during 

compilation.  Detailed  definition  of  each  element  is 
described  in  TABLE  5.1.47.  -  KEM  MISSILE  COAST  TURN 
DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  missile_kem_init. 

(1)  Data  file  "simnet/data/ms_km_ch.d".  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  kem  missile.  The  data  file  consists  of  a  maximum 
of  10  records.  Access  of  the  file  is  "read  only"  and 
sequential. 

Each  record  consists  of  two  fields.  The  first  field  is  a  float 
number,  and  the  second  field  is  a  character  string  of  a 
maximum  length  of  64.  The  first  field  is  assigned  to 
sequential  elements  of  the  global  kem_miss_char  data 
array.  These  fields  have  values  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.42.  -  KEM  MISSILE 
CHARACTERISTICS  DATA  ARRAY.  The  second  field  is 
for  documentation  purposes  only. 
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(2)  Data  file  "simnet/data/ms_km_bs.d".  This  data  file 
includes  the  burn  speed  degree  of  polynomial  and 
coefficients  data  for  the  kem  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  kem_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.43.  -  KEM  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_burn_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.44.  -  KEM  MISSILE  BURN  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(3)  Data  file  "simnet/data/ms_km_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  kem  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  kem_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.43.  -  KEM  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
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tow_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.45.  -  KEM  MISSILE  COAST  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(4)  Data  file  "simnet/data/ms_km_bt.d".  This  data  file 
includes  the  burn  turn  degree  of  polynomial  and 
coefficients  data  for  the  kem  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  kem_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.43.  -  KEM  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_burn_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.46.  -  KEM  MISSILE  BURN  TURN  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(5)  Data  file  "simnet/data/ms_km_ct.d".  This  data  file 
includes  the  coast  turn  degree  of  polynomial  and 
coefficients  data  for  the  kem  missile.  The  data  file  consists 
of  a  maximum  of  11  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  kem_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.43.  -  KEM  MISSILE  POLYNOMIAL 
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DEGREE  DATA  ARRAY. 


The  second  field  is  for 


documentation  purposes  only. 


Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
tow_coast_turn_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.47.  -  KEM  MISSILE  COAST  TURN  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 


k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_kem_init. 


4.5.4.  CSU  missile_maverick_init. 


The  CSU  missile_maverick_init  reads  maverick  missile  data  from  data  files 
and  initializes  the  1)  performance  limitations  data  array,  2)  the  polynomial 
degree  array,  3)  the  bum  speed  polynomial  coefficients  array,  and  4)  the  coast 
speed  polynomial  coefficients  array.  This  CSU  copies  the  parameters  into 
variables  static  to  the  miss_maverck.c  module  and  initializes  the  state  of  all 
the  missiles.  The  following  subparagraphs  describe  the  design  information 
for  the  CSU  missile_maverick_init. 

4.5.4.I.  CSU  missile_maverick_init  design  specification/constiaints. 


This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 


4.5.4.2.  CSU  missile.maverick.init  design. 


The  CSU  missile_maverick_init  is  coded  in  the  ANSI  'C  programming 
language,  standard  language  for  the  CSCI.  The  following  paragraphs  specify 
the  design  of  the  CSU  missile_maverick_init.  For  a  complete  listing,  see 
Appendix  I  -  Source  Code  Listing  For  miss_maverck.c. 


a.  Input/output  data  elements. 
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(1)  missile_array  -  This  input  data  structure  is  a  pointer  to  the 
particular  array  of  missiles  to  be  initialized.  This  structure 
is  declared  global. 

(2)  num_missiles  -  This  input  data  element  is  the  number  of 
missiles  defined  in  the  missile_array.  This  element  is 
declared  global. 

(3)  func  -  This  input  data  element  is  the  operational  function 
of  the  missile.  This  element  is  declared  global. 

(4)  No  output  data  elements  are  declared. 

b.  Local  data  elements.  TABLE  4.5.4. 1  -  CSU 

MISSILE_MAVERICK_INIT  LOCAL  DATA  DEFINITION 
TABLE  describes  the  local  data  elements  originating  in  the  CSU 
missile_maverick_init  and  not  used  by  any  other  CSU. 
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TABLE  4.5.4.1  -  CSU  MISSILE_MAVERICK_INIT  LOCAL  DATA 

DEFINITION  TABLE 


Name 

■ 

H 

data_tmp_ 

int 

data_tmp 

descript 

Description 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

jssammm 

N/A 

N/A 

N/A 

64 

N/A 

1  Unit  of 

1  Measure 

Variable 

Variable 

None 

None 

0-99 

Variable 

Variable 

N/A 

N/A 

1  Precision 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 

d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 
of  the  CSU  missile_maverick_init. 


(1) 


An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  maverick  missile  from  the 
"simnet/data/ms_mk_ch.d"  data  file  is  executed.  This 
data  determines  the  performance  limitations  and 
characteristics  of  the  maverick  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 


The  "simnet/data/ms_mk_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  maverick_miss_char 
element.  The  remainder  of  the  record  is  assigned  to  the 
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temporary  character  string.  The  array  index  is 
incremented  by  one  and  the  next  record  is  scanned.  If  the 
value  of  the  temporary  float  data  is  the  end-of-file,  the  file 
is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  burn 
speed  coefficients  data  from  the 
"simnet/data/ms_mk_bs.d"  data  file  is  executed.  This 
data  determines  burn  speed  polynomial  coefficient  data 
used  during  real-time  execution  to  compute  the  speed  of 
the  maverick  missile  during  engine  burn  for  the 
maverick  missile  flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_mk_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewoimd  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
maverick_miss_poly_deg  array.  The  second  element  of 
the  first  record  is  assigned  to  the  temporary  character 
string.  The  local  array  index  is  set  to  zero.  Then,  each 
record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed 
maverick_burn_speed_coeff  element.  The  remainder  of 
the  record  is  assigned  to  the  temporary  character  string. 
The  array  index  is  incremented  by  one  and  the  next  record 
is  scanned.  If  the  value  of  the  temporary  float  data  is  the 
end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"simnet/data/ms_mk_cs.d"  data  file  is  executed.  This 
data  determines  coast  speed  polynomial  coefficient  data 
used  during  real-time  execution  to  compute  the  speed  of 
the  maverick  missile  after  engine  burn  for  the  maverick 
missile  flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_mk_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
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cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  second  element  of  the 
maverick_miss_poly_deg  array.  The  second  element  of 
the  first  record  is  assigned  to  the  temporary  character 
string.  The  local  array  index  is  set  to  zero.  Then,  each 
record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed 
maverick_coast_speed_coeff  element.  The  remainder  of 
the  record  is  assigned  to  the  temporary  character  string. 
The  array  index  is  incremented  by  one  and  the  next  record 
is  scanned.  If  the  value  of  the  temporary  float  data  is  the 
end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_maverick_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscaid.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 
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(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 

(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  missile_fuze_prox_init.  This  CSU  initializes  the 
proximity  fuze  for  the  maverick  missile.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(8)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU 
missile_maverick_init.  These  variables  existed  in  the 
original  code  and  will  not  be  documented  herein. 

missile_array 

num_missiles 

func 

maverick_cone_threshold 

maverick  array 

num_mavericks 

maverick_array[l.mptr.state 

maverick_array[].mptr.max_flight_time 

maverick_array[].mptr.max_tum_directions 

maverick_array[l.object_being_tracked 

maverick_arrayn-sensor_id 

pel_callback_func 

Logic  flow.  The  CSU  missile_maverick_init  is  called  by  the  CSU 

weapons_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 

Structure.  Execution  of  the  CSU  missile_maverick_init  is  done 

during  initialization  and  is  performed  sequentially. 

Open  maverick  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

maverick_miss_char[indexl=first_field 

descript=second_field 

increment  index  by  one 

End  while. 


-130- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Close  data  file. 

Open  bum  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  maverick_miss_poly_deg[0]=first_field 
Set  descrip  t=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

maverick_burn_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  maverick_miss_poly_deg[l  ]  =first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

maverick_coast_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  maverick_cone_threshold  =  maverick_miss_char[3] 

Set  num_mavericks  =  num_missiles 

Set  maverick_array  =  missile_array 

For  index  =  0  to  less  than  num_missiles,  single  step. 

Set  state  =  0 

Set  max_flight_time  =  maverick_miss_char[2] 

Set  max_turn_directions  =  1 
Set  object_being_tracked  =  NO_OBJECT 
End  for  loop 

Set  pel_callback_func  =  func 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_maverick_init. 
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(1)  Data  structure  maverick_miss_char.  This  shared  data 
structure  holds  the  performance  limitations  and 
characteristics  for  the  maverick  missile.  The  data 
structure  is  an  array  of  15  elements.  The  data  structure  is 
given  default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.15.  - 
MAVERICK  MISSILE  CHARACTERISTICS  DATA 
ARRAY. 


(2)  Data  structure  maverick_miss_poly_deg.  This  shared 
data  structure  holds  the  polynomial  degree  data  defining 
the  size  if  the  pol3momial  arrays  used  in  this  CSU.  The 
data  structure  is  an  array  of  2  elements.  The  data  structure 
is  given  default  initialization  during  compilation. 
Detailed  definition  of  each  element  is  described  in  TABLE 
5.1.16.  -  MAVERICK  MISSILE  POLYNOMIAL  DEGREE 
DATA  ARRAY. 


Data  structure  maverick_bum_spced_coeff.  This  shared 
data  structure  holds  the  burn  speed  coefficients  for  the 
burn  speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.17.  -  MAVERICK 
MISSILE  BURN  SPEED  DATA  ARRAY. 


(4)  Data  structure  maverick_coast_speed_coeff.  This  shared 
data  structure  holds  the  coast  speed  coefficients  for  the 
coast  speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.18.  -  MAVERICK 
MISSILE  COAST  SPEED  DATA  ARRAY. 


j.  Local  data  files.  The  following  data  files  are  part  of  the  local  data 
of  the  CSU  missile_maverick_init. 


(1) 


Data  file  "simnet/data/ms_mk_ch.d".  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  maverick  missile.  The  data  file  consists  of  a 
maximum  of  15  records.  Access  of  the  file  is  "read  only" 
and  sequential.  Each  record  consists  of  two  fields.  The 
first  field  is  a  float  number,  and  the  second  field  is  a 
character  string  of  a  maximum  length  of  64.  The  first 
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field  is  assigned  to  sequential  elements  of  the  global 
maverick_miss_char  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.15.  -  MAVERICK  MISSILE  CHARACTERISTICS  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(2)  Data  file  "simnet/data/ms_mk_bs.d".  This  data  file 
includes  the  burn  speed  degree  of  polynomial  and 
coefficients  data  for  the  maverick  missile.  The  data  file 
consists  of  a  maximum  of  6  records.  Access  of  the  file  is 
"read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  maverick_miss_poly_deg  data 
array.  This  field  has  a  value  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.16.  -  MAVERICK 
MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY.  The 
second  field  is  for  documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
maverick_bum_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.17.  -  MAVERICK  MISSILE  BURN  SPEED 
DATA  ARRAY.  The  second  field  is  for  documentation 
purposes  only. 

(3)  Data  file  "simnet/data/ms_mk_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  maverick  missile.  The  data  file 
consists  of  a  maximum  of  6  records.  Access  of  the  file  is 
"read  only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  maverick_miss_poly_deg  data 
array.  This  field  has  a  value  consistent  with  the 
characteristics  outlined  in  TABLE  5.1.16.  -  MAVERICK 
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MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY.  The 


second  field  is  for  documentation  purposes  only. 


Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
maverick_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.18.  -  MAVERICK  MISSILE  COAST  SPEED 
DATA  ARRAY.  The  second  field  is  for  documentation 
purposes  only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_maverick_init. 


4.5.5.  CSU  missile_nlos_init. 

The  CSU  missile_nlos_init  reads  nlos  missile  data  from  data  files  and 
initializes  the  1)  performance  limitations  data  array,  2)  the  polynomial  degree 
array,  3)  the  burn  speed  polynomial  coefficients  array,  and  4)  the  coast  speed 
polynomial  coefficients  array.  This  CSU  initializes  dte  state  of  the  missile  to 
indicate  that  it  is  available  and  sets  the  values  that  never  change.  The 
following  subparagraphs  describe  the  design  information  for  the  CSU 
missile  nlos  init. 


4.5.5.1.  CSU  missile_nlos_init  design  specification/constraints. 

This  subparagraph  shall  state  the  design  requirements  for  the  CSU.  This 
subparagraph  shall  identify  the  requirements  allocated  to  the  CSC  that  are  to 
be  satisfied  or  partially  satisfied  by  the  CSU  and  shall  identify  any  constraints 
on  the  design  of  the  CSU. 

4.5.5.2.  CSU  missile_nlos_init  design. 

The  CSU  missile_nlos_init  is  coded  in  the  ANSI  'C  programming  language, 
standard  language  for  the  CSCI.  The  following  paragraphs  specify  the  design 
of  the  CSU  missile_nlos_init.  For  a  complete  listing,  see  Appendix  J  -  Source 
Code  Listing  For  miss_nlos.c. 


a.  Input/output  data  elements. 
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(1)  mptr  -  This  input  data  element  is  a  pointer  to  the  array  of 
nlos  missiles  to  be  initialized.  This  structure  is  declared 
global. 

(2)  No  output  data  elements  are  declared. 

Local  data  elements.  TABLE  4.5.5.1  -  CSU  MISSILE_NLOS_INIT 
LOCAL  DATA  DEFINITION  TABLE  describes  the  local  data 
elements  originating  in  the  CSU  missile_nlos_init  and  not  used 
by  any  other  CSU. 
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TABLE  4.5.5.1  -  CSU  MISSILE_NLOS_INIT  LOCAL  DATA  DEHNITION 

TABLE 


Name 

i 

data_tmp_ 

int 

data_tmp 

descript 

fp 

Description 

array  index 

temporary 
integer  data 
storage  for 
data  read 
from  file 

temporary 
float  data 
storage  for 
data  read 
from  file 

temporary 
character 
string  storage 
read  from  file 

data  file 
pointer 

Type 

integer 

integer 

float 

character 

array 

file  pointer 

Represent¬ 

ation 

decimal 

number 

decimal 

number 

real  number 

character 

string 

directory 
pathname 
plus  8 
character 
unique 

filename  plus 
".d"  extension 

Size 

N/A 

N/A 

N/A 

64 

N/A 

Unit  of 
Measure 

Non- 

dimension-al 

Variable 

Variable 

None 

None 

issnsss^ 

0-99 

Variable 

Variable 

N/A 

N/A 

Precision 

H!Mi 

N/A 

N/A 

c.  Interrupts  and  signals.  None  used. 


d.  Algorithms.  The  following  algorithms  are  used  in  the  execution 

of  the  CSU  missile_nlos_init. 

(1)  An  algorithm  to  read  the  performance  limitations  and 
characteristics  of  the  nlos  missile  from  the 
"simnet/data/ms_nl_ch.d"  data  file  is  executed.  This  data 
determines  the  performance  limitations  and 
characteristics  of  the  nlos  missile  during  real-time 
execution.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_nl_ch.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  array  index  is  set  to  zero. 
Each  record  is  scanned  and  the  first  field  is  assigned  to  a 
temporary  float  data  storage.  If  the  value  of  the  temporary 
float  data  is  not  the  end-of-file,  the  temporary  float  data  is 
assigned  to  the  current  indexed  nlos_miss_char  element. 
The  remainder  of  the  record  is  assigned  to  the  temporary 
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character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(2)  An  algorithm  to  read  polynomial  degree  data  and  burn 
speed  coefficients  data  from  the 
"simnet/data/ms_nl_bs.d"  data  file  is  executed.  This  data 
determines  bum  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
nlos  missile  during  engine  burn  for  the  nlos  missile 
flyout.  Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_nl_bs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  first  element  of  the 
nlos_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  nlos_burn_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

(3)  An  algorithm  to  read  polynomial  degree  data  and  coast 
speed  coefficients  data  from  the 
"simnet/data/ms_nl_cs.d"  data  file  is  executed.  This  data 
determines  coast  speed  polynomial  coefficient  data  used 
during  real-time  execution  to  compute  the  speed  of  the 
nlos  missile  after  engine  bum  for  the  nlos  missile  flyout. 
Access  of  the  file  is  "read  only". 

The  "simnet/data/ms_nl_cs.d"  data  file  is  opened  and 
tested  for  records.  If  it  is  a  null  file,  an  error  message  is 
sent  to  the  standard  error  device  reporting  that  the  file 
cannot  be  opened,  and  the  CSU  is  exited.  If  the  file  is  not 
null,  the  file  is  rewound  and  the  first  record  is  read  for  the 
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first  field.  The  first  field  is  assigned  to  a  temporary  integer 
data  storage  and  then  to  the  second  element  of  the 
nlos_miss_poly_deg  array.  The  second  element  of  the 
first  record  is  assigned  to  the  temporary  character  string. 
The  local  array  index  is  set  to  zero.  Then,  each  record  is 
scanned  and  the  first  field  is  assigned  to  a  temporary  float 
data  storage.  If  the  value  of  the  temporary  float  data  is  not 
the  end-of-file,  the  temporary  float  data  is  assigned  to  the 
current  indexed  nlos_coast_speed_coeff  element.  The 
remainder  of  the  record  is  assigned  to  the  temporary 
character  string.  The  array  index  is  incremented  by  one 
and  the  next  record  is  scanned.  If  the  value  of  the 
temporary  float  data  is  the  end-of-file,  the  file  is  closed. 

e.  Error  handling.  Errors  other  than  a  null  data  file  are  not 
handled.  If  a  null  data  file  is  detected,  a  message  is  sent  to  the 
standard  error  device  reporting  that  the  file  could  not  be  opened. 

f.  Data  conversion.  Data  conversion  is  not  done  in  this  CSU. 

g.  Use  of  other  elements.  The  following  elements  are  used  by  CSU 
missile_nlos_init. 

(1)  CSU  fopen.  This  library  call  opens  a  designated  file.  This 
CSU  existed  within  the  original  code  and  is  not 
dociunented  herein. 

(2)  CSU  fprintf.  This  library  call  CSU  prints  a  designated 
string  to  a  designated  output  device.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(3)  CSU  rewind.  This  library  call  CSU  rewinds  a  designated 
file.  This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(4)  CSU  fscanf.  This  library  call  CSU  scans  a  record  for  a  field 
from  a  designated  file.  This  CSU  existed  within  the 
original  code  and  is  not  documented  herein. 

(5)  CSU  fgets.  This  library  call  CSU  gets  a  field  from  a 
designated  file.  This  CSU  existed  within  the  original  code 
and  is  not  documented  herein. 
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(6)  CSU  fclose.  This  library  call  CSU  closes  a  designated  file. 
This  CSU  existed  within  the  original  code  and  is  not 
documented  herein. 

(7)  CSU  cos.  This  library  call  CSU  computes  the  cosine  of  the 
radian  measure  given  as  the  argument.  This  CSU  existed 
within  the  original  code  and  is  not  documented  herein. 

(8)  Shared  data  elements.  The  following  is  a  list  of  global 
variables  initialized  within  the  CSU  missile_nIos_init. 
These  variables  existed  in  the  original  code  and  will  not  be 
documented  herein. 

state 

max_flight_time 

max_turn_directions 

speed 

cos_max_turn 

nlos_req_id 

nlos_target_id 

nlos_ammo_type 

vehiclelDIrrelevant 

h.  Logic  flow.  The  CSU  missile_nlos_init  is  called  by  the  CSU 
weapons_init.  See  Appendix  A  -  RWA  AireNet  Call  Tree 
Structure.  Execution  of  the  CSU  missile_nlos_init  is  normally 
done  only  once  during  CSCI  initialization  and  is  performed 
sequentially. 

Open  nlos  missile  characteristics  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Set  index  to  zero. 

While  record  not  end-of-file, 

nlos_miss_char[indexl=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  bum  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 
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Set  nlos_miss_poly_deg[0]=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

nlos_burn_speed_coeff[index]=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Open  coast  speed  data  file. 

If  file  is  null,  print  error  message  and  exit. 

Rewind  file. 

Get  first  field  of  first  record. 

Set  nlos_miss_poly_deg[ll=first_field 
Set  descript=second_field 
Set  index  to  zero. 

While  record  not  end-of-file, 

nlos_coast_speed_coeffUndexl=first_field 
descript=second_field 
increment  index  by  one 
End  while. 

Close  data  file. 

Set  state  =  FALSE 

Set  max_flight_time  =  nlos_miss_char[7] 

Set  max_turn_directions  =  1 
Set  speed  =  nlos_miss_char[8] 

Set  cos_max_tum[0]  =  cos(nlos_miss_char[l]) 

Set  nlos_req_id  =  NEAR_NO_REQUEST_PENDING 
Set  nlos_target_id  =  vehiclelDIrrelevant 

Data  structures.  The  following  shared  data  structures  are  used  by 
the  CSU  missile_nlos_init. 

(1)  Data  structure  nlos_miss_char.  This  shared  data  structure 
holds  the  performance  limitations  and  characteristics  for 
the  nios  missile.  The  data  structure  is  an  array  of  20 
elements.  The  data  structure  is  given  default 
initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.48.  -  NLOS 
MISSILE  CHARACTERISTICS  DATA  ARRAY. 
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(2)  Data  structure  nlos_miss_poly_deg.  This  shared  data 
structure  holds  the  polynomial  degree  data  defining  the 
size  if  the  pol)momial  arrays  used  in  this  CSU.  The  data 
structure  is  an  array  of  5  elements.  The  data  structure  is 
given  default  initialization  during  compilation.  Detailed 
definition  of  each  element  is  described  in  TABLE  5.1.49.  - 
NLOS  MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY. 

(3)  Data  structure  nlos_burn_speed_coeff.  This  shared  data 

structure  holds  the  bum  speed  coefficients  for  the  burn 
speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.50.  -  NLOS 
MISSILE  BURN  SPEED  DATA  ARRAY. 

(4)  Data  structure  nlos_coast_speed_coeff.  This  shared  data 

structure  holds  the  coast  speed  coefficients  for  the  coast 
speed  polynomial.  The  data  structure  is  an  array  of  5 
elements.  The  data  structure  is  given  default 

initialization  during  compilation.  Detailed  definition  of 
each  element  is  described  in  TABLE  5.1.51.  -  NLOS 
MISSILE  COAST  SPEED  DATA  ARRAY. 

Local  data  files.  The  following  data  files  are  part  of  the  local  data 

of  the  CSU  missile_nlosJnit. 

(1)  Data  file  ’'simnet/data/ms_nl_ch.d".  This  data  file 
includes  the  performance  limitations  and  characteristics 
of  the  nlos  missile.  The  data  file  consists  of  a  maximum 
of  20  records.  Access  of  the  file  is  "read  only"  and 
sequential.  Each  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
nlos_miss_char  data  array.  These  fields  have  values 
consistent  with  the  characteristics  outlined  in  TABLE 
5.1.48.  -  NLOS  MISSILE  CHARACTERISTICS  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(2)  Data  file  "simnet/data/ms_nl_bs.d".  This  data  file 
includes  the  burn  speed  degree  of  polynomial  and 
coefficients  data  for  the  nlos  missile.  The  data  file  consists 
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of  a  maximum  of  6  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  coirsists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  nlos_miss_polv_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
outlined  in  TABLE  5.1.49.  -  NLOS  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
nlos_burn_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.50.  -  NLOS  MISSILE  BURN  SPEED  DATA 
ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

(3)  Data  file  "simnet/data/ms_nl_cs.d".  This  data  file 
includes  the  coast  speed  degree  of  polynomial  and 
coefficients  data  for  the  nlos  missile.  The  data  file  coirsists 
of  a  maximum  of  6  records.  Access  of  the  file  is  "read 
only"  and  sequential. 

The  first  record  consists  of  two  fields.  The  first  field  is  an 
integer  number,  and  the  second  field  is  a  character  string 
of  a  maximum  length  of  64.  The  first  field  is  assigned  to 
an  element  of  the  global  nlos_miss_poly_deg  data  array. 
This  field  has  a  value  consistent  with  the  characteristics 
ouUined  in  TABLE  5.1.49.  -  NLOS  MISSILE  POLYNOMIAL 
DEGREE  DATA  ARRAY.  The  second  field  is  for 
documentation  purposes  only. 

Each  remaining  record  consists  of  two  fields.  The  first 
field  is  a  float  number,  and  the  second  field  is  a  character 
string  of  a  maximum  length  of  64.  The  first  field  is 
assigned  to  sequential  elements  of  the  global 
nlos_coast_speed_coeff  data  array.  These  fields  have 
values  consistent  with  the  characteristics  outlined  in 
TABLE  5.1.51.  -  NLOS  MISSILE  COAST  SPEED  DATA 
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ARRAY.  The  second  field  is  for  documentation  purposes 
only. 

k.  Limitations.  There  are  no  additional  limitations  or  unusual 
features  that  restrict  the  performance  of  the  CSU 
missile_nlos_init. 
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5.  CSCI  data. 

This  section  describes  only  those  global  data  elements  modified  or 
added  within  the  CSCI  under  this  delivery  order.  For  ease  in 
readability  and  maintenance,  the  information  is  provided  in  tables. 

5.1.  Data  elements  internal  to  the  CSCI. 

a.  For  data  elements  internal  to  the  CSCI,  the 
following  tables  describe  the  data  arrays  and  the 
data. 
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TABLE  5.1.8. -KINEMATICS  DATA  ARRAY 
[Continued] 


TABLE  5.1.9.  -  KINEMATICS  INITIALIZATION  DATA  ARRAY 

[Continued] 


TABLE  5.1.10  -  HELLFIRE  MISSILE  CHARACTERISTICS  DATA  ARRAY 
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TABLE  5.1.13.  -  HELLFIRE  MISSILE  BURN  SPEED  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.15  -  MAVERICK  MISSILE  CHARACTERISTICS  DATA  ARRAY 
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TABLE  5.1.16.  -  MAVERICK  MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY 


TABLE  5.1.18.  -  MAVERICK  MISSILE  COAST  SPEED  COEITICIENT  DATA  ARRAY 
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TABLE  5.1.19  -  STINGER  MISSILE  CHARACTERISTICS  DATA  ARRAY 
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TABLE  5.1.20.  -  STINGER  MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY 


-170- 


TABLE  5.1.23  -  TOW  MISSILE  CHARACTERISTICS  DATA  ARRAY 
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TABLE  5.1.25.  -  TOW  MISSILE  BURN  SPEED  COEFFICIENT  DATA  ARRAY 


TABLE  5.1.27.  -  TOW  MISSILE  BURN  TURN  COEFFICIENT  DATA  STRUCTURE 
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TABLE  5.1.28.  -  TOW  MISSILE  COAST  TURN  COEFFICIENT  DATA  STRUCTURE 
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TABLE  5.1.29  -  AD  AT  MISSILE  CHARACTERISTICS  DATA  ARRAY 
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TABLE  5.1.31.  -  ADAT  MISSILE  BLFRN  SPEED  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.32.  -  AD  AT  MISSILE  COAST  SPEED  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1  J3.  -  AD  AT  MISSILE  BURN  TURN  COEFFICIENT  DATA  ARRAY 
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TABLE  5.134.  -  ADAT  MISSILE  COAST  TURN  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.35.  -  ADAT  MISSILE  TEMPORAL  BIAS  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.38.  -  ATGM  MISSILE  BURN  SPEED  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.44.  -  KEM  MISSILE  BURN  SPEED  COEFFICIENT  DATA  ARRAY 


TABLE  5.1.45.  -  KEM  MISSILE  COAST  SPEED  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.46.  -  KEM  MISSILE  BURN  TURN  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.47.  -  KEM  MISSILE  COAST  TURN  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.48.  -  NLOS  MISSILE  CHARACTERISTICS  DATA  ARRAY 
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TABLE  5.1.49.  -  NLOS  MISSILE  POLYNOMIAL  DEGREE  DATA  ARRAY 


TABLE  5.1.51.  -  NLOS  MISSILE  COAST  SPEED  COEFFICIENT  DATA  ARRAY 
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TABLE  5.1.52  -  HYDRA  ROCKET  CONFIGURATION  DATA  ARRAY 


TABLE  5.1.53  -  HYDRA  ROCKET  CHARACTERISTICS  DATA  ARRAY 
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TABLE  5.1.55.  -  SUBMUNITIONS  FLECHETTE  CHARACTERISTICS  DATA 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


5.2.  Data  elements  of  the  CSO's  external  interfaces. 

Existing  data  elements  of  the  CSCl's  external  interfaces  were  not  modified  nor 
were  any  new  external  interfaces  to  the  CSCI  added. 
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22  January  1993 
Reference  #  W003036 
Rev.  0.0 


6.  CSCI  data  files. 

Existing  CSCI  shared  data  files  were  not  modified  nor  were  any  shared  data 
Hies  added. 
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22  January  1993 
Reference  #  W003036 
Rev.  0.0 


7.  Requirements  traceability. 

Traceability  of  the  requirements  allocated  down  to  the  CSU  level  of 
each  CSC  back  to  the  requirements  of  the  SYSTEM 
SPECIFICATION  FOR  THE  ROTARY  WING  AIRCRAFT  AIRNET 
AEROMODEL  AND  WEAPONS  MODEL  CONVERSION  are 
shown  in  TABLE  7.1  -  AIRNET  AEROMODEL  AND  WEAPONS 
MODEL  CONVERSION  REQUIREMENTS  TRACEABILITY. 

TABLE  7.1.  -  AIRNET  AEROMODEL  AND  WEAPONS  MODEL 
CONVERSION  REQUIREMENTS  TRACEABILITY 


Requirement 

ID 

SDD 

Traceability 

Reference 

Title 

Description 

3.2.1. 3.1. 

4.1 

Flight  Model 
Initialization 
State. 

The  Flight  Model  Segment 
Initialization  State  shall  be  entered 
during  the  System  Initialization  process 
after  system  bootup.  System  state  and 
status  variables  uniquely  identify  the 
RWA  AirNet  configuration  and  state. 

3.2.1.3.1.1 

4.1.3 

Flight  Controls 
Initialization. 

Initialization  of  the  Flight  Controls 
Model  Sub-Segment  configuration  shall 
be  done  during  this  state  upon  command 
from  the  system. 

3.2.1.3.1.1.1 

4.1.33 

0 

Flight  Controls 
Data. 

Parameters  to  be  set  shall  include 
maximum  pitch,  roll  and  yaw  rates, 
turning  radius,  flight  controls  input 
sensitivity  and  profile,  physical 
constants,  conversion  factors,  integration 
constants,  gains,  and  limits. 

3.2.1.3.1.1.1.1 

4.1 .3.2 

Flight  Controls 
Data  File. 

Data  values  shall  be  read  from  a  flight 
controls  model  initialization  file. 

3.2.1.3.1.1.1.2 

4.1.33 

Flight  Controls 
Data  Format. 

The  format  of  the  data  file  shall  allow 
modification  of  the  data  using  a  text 
editor. 

3.2.13.1.2 

4.1.2 

1 

Bight  Dynamics 
Initialization. 

Initialization  of  the  Flight  Dynamics 
Model  Sub-Segment  configuration  shall 
be  done  during  this  state  upon  command 
from  the  system.  During  this  mode  , 
configuration  flags  and  variables  are  set 
which  point  to  specific  submodules  and 
data  files  for  execution  and  loading. 
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TABLE  7.1.  -  AIRNET  AEROMODEL  AND  WEAPONS  MODEL 
CONVERSION  REQUIREMENTS  TRACEABILITY  [CONTINUED] 


Requirement 

ID 

SDD 

Traceability 

Reference 

Title 

Description 

32.1.3.1.2.1 

4.1.22 

Flight  Dynamics 
Data. 

Initialization  shall  include 

downloading  of  coefficient  tables  for  the 
main  rotor,  fuselage,  and  stabilizers. 

4.12.2 

Flight  Dynamics 
Data  File. 

These  values  shaU  be  read  from  a  flight 
dynanucs  nnodel  initialization  file. 

32.1.3.1.2.12 

4.12.2 

Flight  Dynamics 
Data  Format. 

The  format  of  the  data  file  shall  allow 
modification  of  the  data  using  a  text 
editor. 

32.12.1.3 

4.1.1 

Engine 

Initialization. 

Initialization  of  the  Engine  Model  Sub- 
Segment  configuration  shall  be  done 
during  this  state  upon  conunand  from  the 
systenv 

32.12.1.3.1 

4.1.1 

Engine 

Initialization. 

Initialization  shall  include 

downloading  of  data  tables  for  the  gas 
and  power  turbines,  fuel  consumption, 
power  output,  and  acceleration 
coefficients. 

32.1.3.1.3 

4.1.12 

Engine  Data. 

These  values  shall  be  read  from  an 
engine  model  initialization  file. 

32.12.1.3 

4.1.12 

Engine  Data 
Format. 

The  format  of  the  data  file  shaU  allow 
modification  of  the  data  using  a  text 
editor. 

32.122 

32.1 

(Functionality 

unchanged) 

Flight  Model  Run¬ 
Time  State.  . 

In  this  mode  the  Fli^t  nnodel  Segnwnt 
shaU  be  in  stand-by  awaiting  RWA 
AirNet  Flight  model  activity. 

32.122.1 

Flight  Model  Idle 
Mode. 

During  the  Flight  Model  Idle  mode,  the 
execution  of  the  flight  model  functions 
shaU  be  suspended. 

32.1.32.1.1 

3.2.1 

(Functionality 

unchanged) 

Right  Model  Idle 
Mode  Integration. 

Integration  computations  shall  be  put  in 
a  stable  state. 

32.122.12 

FUght  Model  Idle 
Mode  Change. 

Execution  shall  be  started  or  resumed 
from  this  noode. 

32.1.32.12 

32.1 

(Functionality 

unchanged) 

FUght  Model  Idle 
Mode  Control. 

This  mode  shall  be  controlled  by  the 
system  executive. 

32.1.3.2.1.4 

FUght  Model  Idle 
Mode  FunctionaUty. 

The  modifications  shall  have  no  adverse 
affects  upon  the  FUght  Model  Idle  nrKxle 
functionality. 

32.1.3.2.2 

■tt75iTTiTu?H^^H 

Flight  Model 
Execute  Mode. 

During  the  Flight  Model  Execution  mode, 
the  flight  model  shall  be  executed  in 
real-time. 
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TABLE  7.1.  -  AIRNET  AEROMODEL  AND  WEAPONS  MODEL 
CONVERSION  REQUIREMENTS  TRACEABILITY  [CONTINUED] 


Requirement 

ID 

SDD 

Traceability 

Reference 

Title 

Description 

3.2.1J.2.2.1 

3.2.1 

(Functionality 

unchanged) 

Flight  Model 
Execute  Mode 
Executitm. 

Execution  shall  be  stopped  from  this 
mode 

32.1.3.2.2.2 

3.2.1 

(Functionality 

unchanged) 

Flight  Model 
Execute  Mode 
Execution  Rate. 

The  rate  of  execution  shall  be  controlled 
by  the  system  executive. 

3.2.1.32.2.3 

3.2.1 

(Functionality 

unchanged) 

Flight  Model 
Execute  Mode  Data 
Sources. 

The  source  of  coefficient  data  shall  be 
taUe  look  ups. 

32.1.32.2.4 

3.2.1 

(Functionality 

unchanged) 

Flight  Model 

Execute  Mode 
Functionality. 

The  modifications  shall  have  no  adverse 
affects  upon  the  Flight  Model  Execute 
mode  functionality. 

3.2.122.25 

FUght  Controls 
Model 

The  Flight  Controls  Model  Sub-Segment 
shall  simulate  the  flight  controls  of  the 
aircraft. 

3.2.1.32.2.5a 

32.1 

(Functionality 

unchanged) 

Flight  Controls 
Model 

Input  shall  be  used  to  calculate  a 
resultant  movement  of  a  control  surface 
and  corresponding  output  to  the  flight 
dynamics  modd  sub-segment 

32.122.2.6 

3.2.1 

(Functionality 

unchanged) 

Flight  Dynamics 
Model 

The  Flight  Dynamics  Model  Sub- 
Segment  shall  provide  a  simulation  of 
the  flight  characteristics  of  the  aircraft. 

32.1222.6b 

32.1 

(Functionality 

unchanged) 

Flight  Dynamics 
Modd 

The  simulation  shall  indude  portions  of 
the  flight  envelope  including  cruise, 
ascent,  descent,  hover,  and  low-level 
flight  with  ground  effect. 

32.1.3.22.6c 

32.1 

(Functionality 

unchanged) 

Flight  Dynamics 
Model 

The  simulation  shall  include  calculation 
of  forces  and  moments,  equations  of 
motion,  weight  and  balance,  and 
aerodynamics. 

32.12.2.2.7 

3.2.1 

(Functionality 

unchanged) 

Engine  Model 

The  Engine  Model  Sub-Segment  shall 
provide  core  engine  representation, 
torque  generation,  engine  fuel  system 
utilization,  and  transmission 
representation. 

3.2.12.2.3 

3.2.1 

(Functionality 

unchanged) 

Flight  Model  Stop 
Mode. 

During  the  Flight  Model  Stop  mode,  the 
execution  of  the  flight  model  functions 
shall  be  suspended. 

3.2.122.3.1 

32.1 

(Functionality 

unchanged) 

Flight  Model  Stop 
Mode  Control. 

This  mode  shall  be  controlled  by  the 
tystem  executive. 

3.2.122.32 

32.1 

(Functionality 

unchanged) 

Flight  Model  Stop 
Mode  Functionality. 

The  modifications  shall  have  no  adverse 
affects  upon  the  Flight  Model  Stop  mode 
functionality. 
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TABLE  7.1.  -  AIRNET  AEROMODEL  AND  WEAPONS  MODEL 
CONVERSION  REQUIREMENTS  TRACEABILITY  [CONTINUED] 


Requirement 

ID 

SDD 

Traceability 

Reference 

Title 

E)escription 

3.2. 1.3.3 

3.2.1 

(Functionality 

unchanged) 

Segment  Capability 
Relationships. 

Flight  Model  Segment  capability 
relatioirships  shall  not  be  affected  by 
modifications  and  restructuring  of  the 
flight  model  functions. 

3.2.1.3.3a 

33.1 

(Functionality 

unchanged) 

Segntent  Capability 
Relationships. 

The  capability  relationships  shall 
reirrain  intact. 

3.2.13.4 

3.2.1 

(Functionality 

unchanged) 

Segment  External 
Interface 
Requirements. 

Flight  Model  Segment  interface 
requirements  shall  not  be  affected  by 
mr^ifications  and  restructuring  of  the 
flight  model  functioirs. 

3.2.1.3.4a 

3.2.1 

(Functionality 

unchanged) 

The  interface  requirements  shall  remain 
intact. 

33.13 

3.2.1 

(Functionality 

unchanged) 

RWA  Weapons 
Model  Upgrade 
Segmimt 

The  intent  of  the  RWA  Weapons  Model 
Upgrade  is  to  improve  the  software  by 
making  it  table  driven. 

3.2.13.1 

■ 

Initialize  Weapons 
State 

The  Iititialize  Weapons  Segment  state  is 
entered  duriirg  the  System  Initialization 
process  after  ^'Stem  bootup. 

33.13.1.1.1 

43.1.2 

43.23 

Guided  Missile 
Trajectory 
Coefficient  Data 

Trajectory  coefficient  data  associated 
with  guided  missiles  shall  be  loaded  at 
mission  iiutialization. 

33.13.1.13 

Guided  Mis^e 
Trajectory 
Coefficient  Data 
Format 

Trajectory  coefficient  data  files  for 
Guided  Missiles  shall  be  in  a  format 
which  allow  modification  through  a 
standard  text  editor. 

33.13.1.13 

Ballistic  Missiles 
Trajectory 
Coefficient  Data 

Trajectory  coefficient  data  associated 
with  ballistic  missiles  shall  be  loaded 
at  mission  initialization. 

33.13.1.1.4 

4.233 

43.4.2 

43.53 

43.7.2 

Ballistic  Missile 
Trajectory 
Coefficient  Data 
Format 

Trajectory  coefficient  data  files  for 
Ballistic  Missiles  shall  be  in  a  format 
which  allow  modification  through  a 
standard  text  editor. 

3.2.13.1.13 

43.6.2 

Ballistic  Rounds 
Trajectory 
Coefficient  Data 

Trajectory  coefficient  data  associated 
with  Ballistic  Rourkls  shall  be  loaded  at 
mission  initialization. 
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TABLE  7.1.  -  AIRNET  AEROMODEL  AND  WEAPONS  MODEL 
CONVERSION  REQUIREMENTS  TRACEABILITY  [CONTINUED] 


Requirement 

ID 

SDD 

Traceability 

Reference 

Title 

Description 

3.2.1. 5.1. 1.6 

43.6.2 

Ballistic  Rounds 
Trajectory 
Coefficient  Data 
Format 

Trajectory  coefficient  data  files  for 
Ballistic  Rounds  shall  be  in  a  format 
which  allow  modification  through  a 
standard  text  editor. 

3.2.1.5.1.2.1 

4.2.13 

4.2.23 

Guided  Missiles 
Characterization 

Guided  missile  characteristics  shall  be 
initialized  via  data  files. 

3.2.1 .5.1. 2.2 

Ballistic  Missiles 
Characterization 

Ballistic  missile  characteristics  shall  be 
initialized  via  data  files. 

3.2.15.1.23 

43.6.2 

Ballistic  Rounds 
Characterization 

Ballistic  Rounds  characteristics  shall  be 
initialized  via  data  files. 

33.133.4.1 

4.2.13 

43.2.2 

Guided  MissUe 
Flyout 

Guided  Missile  Flyout  shall  utilize  new 
data  structures  containing  trajectory  and 
control  data. 

33.133.43 

4.1.13 

4.1.23 

4.1.33 

43.13 

4.2.23 

43.33 

43.43 

43.53 

43.63 

43.73 

4.3.13 

4.3.23 

Use  of  Data  Tables 

Updates  required  Modification  of  the 
source  code  shall  be  limited  to  reference 
data  tables  containing  data  which  is 
read  in  via  data  files. 

33.133.43 

43.3.2 

4.2.43 

43.53 

43.73 

Ballistic  Missile 
Flyout 

Ballistic  Missile  Flyout  shall  utilize 
new  data  structures  containing  trajectory 
and  control  data. 

3.2.13.2.4.4 

43.6.2 

Ballistic  Round 
Flyout 

Ballistic  Round  Flyout  shall  utilize  new 
data  structures  contaiiung  trajectory  and 
control  data. 

3.2.1. 6.1 

4.3.1 

Initialization  State 

The  Kill  COMM  Initialization  state 
places  the  communications  system  into  a 
known  state.  The  Initialization  state 
has  iv>  modes. 

43.13 

COMM  On  Variable 

The  Kill  COMM  Irutialization  shall  set 
the  communications  "COMM  On" 
variable  to  enable  ownship  two-way 
communications. 
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TABLE  7.1.  -  AIRNET  AEROMODEL  AND  WEAPONS  MODEL 
CONVERSION  REQUIREMENTS  TRACEABILITY  [CONTINUED] 


Requirement 

ID 

SDD 

Traceability 

Reference 

Title 

Description 

3.2.1.6.2.1 

4.3.1.2 

Run  Time  OOMM  On 
Mode 

The  Run  Time  COMM  On  mode  shall 
enable  two-way  communications  between 
the  ownship  and  other  AirNet  vehicles. 

3.2.1. 6.2.2 

4.3.2.2 

RunTime  COMM 
Off  Mode 

The  Run  Time  COMM  Off  mode  shall 
disable  two-way  communications 
between  the  ownship  and  other  AirNet 
vehicles. 
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8.  Notes. 

This  following  section  contains  general  information  that  aids  in 
imderstanding  this  document. 

8.1  Acronyms  and  abbreviations. 

The  following  is  a  list  of  acronyms  and  abbreviations  used  in  this  document. 


ADAT 

Air  Defense  Anti-Tank  Missile 

ADST 

Advanced  Distributed  Simulation 
Technology 

Ascn 

American  Standard  Code  for 
Information  Interchange 

ATGM 

Anti-Tactical  Guided  Missile 

CDRL 

Contract  Data  Requirements  List 

CSC 

Computer  Software  Component 

csa 

Computer  Software  Configuration 
Item 

CSU 

Computer  Software  Unit 

deg 

degree 

gals 

gallons 

I/O 

input/Output 

KEM 

Kinetic  Energy  Missile 

kilogram 

kg-m 

kilogram-meter 

Hz 

hertz 

Msec 

millisecond 

N 

Newton 

N-m 

Newton-meter 

NLOS 

Non-Line-of-Sight  Missile 

rad 

radian 

SDD 

Software  Design  Document 

sec 

second 

STRICOM 

Simulator  Training  and 

Instrumentation  Command 

TOW 

Tube-launched,  Optically-tracked, 
Wire  guided  Anti-Tank  Missile 
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Appendix  A  -  RWA  AirNet  Call  Tree  Structure. 


The  following  appendix  contains  information  for  convenience  in 
document  maintenance  and  understanding  of  the  overall  CSCI 
architecture.  This  call  tree  is  not  aU  inclusive,  i.e.,  it  only  contains  the 
calls  from  the  top-level  down  to  the  CSU  of  interest  in  this 
document.  Other  CSU  have  been  included  in  the  Call  Tree  for  clarity 
and  reference. 
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Appendix  B  -  Source  code  listing  for  rwo_aerodyn.c. 

The  following  appendix  contains  the  source  code  listing  for 
rwa_aerodyn.c  for  convenience  in  document  maintenance  and 
understanding  of  the  CSU. 
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Appendix  B  -  Souree  Code  Listing  for  rwaLaerodyn.c 

/•$Header  /a3/adst-cm/RWA/siinnet/vehide/rwa/src/RCS/rwa  aerodyn.c,v  1.1 1992/ 
10/07 1900^3  cm^dst  Exp  $  V 
/• 

*  $Log:  rwa_aerodyn.c,v  $ 

•Revision  1.1  1992/10/07  19:00:23  cm-adst 

*  Initial  Version 

•/ 

static  char  RCS_IDD  =  "$Header  /a3/adst-cin/RWA/siinnet/vehide/rwa/a'c/RCS/rwa_ 
aerodyn.c,v  1.1 1992/10/07 19:00:23  cm-adst  Exp  $”; 


Revisions: 

Version  Date  Author  Title  SP/CR  Number 


\2  10/09/92  R.  Branson  Data  File  Initiali¬ 

zation 

13  10/16/92  R.  Branson  Data  filenames  changed 

to  eight  charachters 

1.4  10/30/92  R.  Branson  Added  pathname  to  data 

directory 

. . . . . . . . / 


•  SP/CR  No.  Description  of  Modification 


Hard  coded  defines  changed  to  array  elements. 
Aerodyn  data  array  added. 

Aerodyn  initialization  data  array  added. 

Aerodyn  stealth  data  array  added. 

Aerodyn  simple  data  array  added. 

Added  file  read  for  aerodyn  data,  aerodyn  initiali¬ 
zation  data,  aerodyn  stealth  data,  and  aerodyn 
simple  data  to  the  "aerodynjnit"  function. 

Added  "/sinmet/data/"  to  each  data  file  pathname. 


•  FILE:  rwa_aerodyn.c 

•  AUTHOR:  James  Chung 
•MAINTAINED  James  Chung 
•HISTORY;  4/19/89  James; Creation 


-B-2- 


22  January  1993 
Reference  #W003036 
Rev.  0.0 


Appendix  B-  Source  Code  Listing  for  rwa_aerodyn.c 
8/02/90  carol:  added  simplified  aero  dynamics  * 


*  Copyright  (c)  1989  BBN  S3^tems  and  Technologies  Corporation  * 

*  All  rights  reserved.  • 

*  Interim  aerodynamics  model  for  a  generic  rotary-wing  aircraft* 

*  with  flight  characteristics  similar  to  that  of  a  McDonnell  * 

*  Douglas  AH-64  Ap>ache  attack  helicopter.  * 


#include  "stdio.h" 
#include  "simstdio.h" 
#include  "math  J»" 
#include  "sim_dfnsJ»" 
#include  "sim_types.h" 
#include  "sim_macrosJi" 
#iiKlude  1ibmatrix.h" 
#ifKlude  Tibmath.h" 


#include  "rwa_engineJi" 
#include  "vehicle.h" 
#iiKlude  "aero_paramJi" 
fiitclude  "std_atm.h" 
#include  "ground.h" 
#iiKlude  "rwa_g;round.h" 
#include  "parametersJi" 
#include  "rwa_kinemat  Ji" 
#iiKlude  "libmun  Ji" 
#iiKlude  "Ubhull.h” 
#include  "libkin.h” 
#iiKlude  "rwa_aerodyn.h" 


#define  MOMENT_OF_INERTIA_X 
#define  MOMENT_OF_INERTIA  Y 
#define  MOMENT_OF_INERTIaIz 


aen)_data[  0] 
aero_data[  1] 
aero_data[  2] 


idefine  AIRFRAME  MASS 
«define  ORDINANCE  MASS 
#defineGRAV  CONSTANT 
«defineCG  AC  X 
«defineCG  AC  Y 
#defineCG_AC  Z 


aero_data[  3] 
aero_data[  4] 
aero_data(  5] 
aero_data(  6] 
aero_data(  7] 
aero_data[  8) 


#define  VIRTUAL  WING  AREA 
#define  VIRTUAL  WING.COP  AC  X 
#define  VIRTUAL  WING  COP  AC  Y 
#defineVIRTUAL_WING_COP_AC  Z 
#defineWING_LI^  COElnCffiNT  FIT  3 
#defineWING_LIFT_COEFnCIENT  FIT  2 


aero_data[  9] 
aero_data[10] 
aeiD_data[llj 
aero_data[12j 
aero_data[13] 
aero_data[14] 
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Appendix  B  •  Source  Code  Listing  for  rwa_aerodyn.c 


#defineWING_LIFT_COEFFICIENT_Frr_l  aero_dataI15] 

#define  WING_LIFT_COEFFICIENT_FIT_0  aero_datall6] 

#define  W1NgZsTALL_AOA  (deg_to_rad(aero_data[17])) 

«defineVSTAB  AREA  aero_dala(18] 

#defineVSTAB  COP  AC_X  aen)_dataI19] 

#defineVSTAB  COP_AC_Y  aero,dataI201 

#defineVSTAB  COP_AC_Z  aero_data[21] 

#defineVSTAB  LIFT_COEFnCIENT_l  aero_dataI22] 

#deflneVSTAB  STALL_SSA  (deg_to_rad(aero_dataI23])) 


«defineMAIN 
#defineMAIN 
#define  MAIN 
#defineMAIN 
#defineMAIN 
idefineMAIN 
tdefineMAIN 
«defineMAIN 
#define  MAIN 
«defineMAIN* 


ROTOR 

ROTOR 

ROTOR 

ROTOR 

ROTOR 

ROTOR 

ROTOR 

ROTOR 

ROTOR 

ROTOR 


COP_AC_X 
COP  AC  Y 
COP  AC  Z 

majTtmiust 

MAST  TILT 


MAX  LOAD  TORQUE 
MAX  PITCH  MOMENT 
MAX_ROLL_MOMENT 
TORQUE_COUPLING_GAIN 
GROUND  EFFECT  FACTOR 


aero_data[24] 
aero_data[25] 
aero_dataI26] 
aero_data[27] 
(deg_to_rad(aero_dataI28])) 


aero_data[29] 

aero_data(30] 

aero_data[31] 

aero_data[32] 

aero_data[33] 


#defineTAIL  ROTOR_COP  AC  X  aero_dataI34] 

#defineTAIL  ROTOR.COP  AC  Y  aero  data[351 

«defineTAIL  ROTOR  COP  AC_Z  aero  data[36] 

«defineTAIL  ROTOR  MAX  THRUST  aero  data(371 

«defineTAIL  ROTOR  MAX  LOAD  TORQUE  aero  datal38] 


«define  P_DRAG_COEFF_CONST 
#defineP_DRAG_TAS  BREAK 
«defineP_DRAC  COeIt  BREAK 
«defineP_DRAG  TAS  M^ 
#dcfineP_DRAG  COeIt.MAX 


aero_data[39] 

aCTO_data[40] 

aero_datal41] 

aero_data[42] 

aero_data(43] 


#define  TOTAL  WETTED  SURFACE  AREA 


aero_data[44] 


#defineATr  DAMPING  MODE  SIMPLE  TRUE 

Hover  hold  changes: 

if  ATr_DAMPING_MODE_SIMPLE 

when  slow  moving  ( air5peed<10  knots )  the  max  pitch  is  5  degrees 
medium  ( 10<=air5peed<30 )  pitch  is  10  degrees 
other  ( 30<=air5peed )  pitch  is  15  degrees 

else 

when  airspeed  >=  10  knots  pitch  is  proportional  to  logfspeed) 
otherwise  pitch  is  +/-  5  degrees 

Paul  J.  Metzger  11-1-89 

. . . . .  / 

Static  REAL  MAX_ATT_CTL_ANGLE; 

#define  MAX.Alf _CTL_ANGLE_CTOP  aero_data[45] 
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Appendix  B  -  Source  Code  Listing  for  rwa_aerodyn.c 

#define  MAX_ATT_DAMPING_FACTOR  aero_datol46] 

«define  HOVER  SLOW.UMTT  aCTO_data[47} 

#deRne  HOVER_AUG_PITCH_RESET_VALUE  aen>_data[48] 
static  int  hover3old_turned_on;  /•  transition  mode,  TRUE  or  FALSE  *  / 


#if  ATT.DAMPING  MODE.SIMPLE 
«define  MAX  ATT  CTL_ANGLE_NORM 
#defineMAX  ATT  CTL_ANGLE_MED 
#define  MAX_ATr_CTL_ANGLE_SLOW 
«define  HOVER_MED_LIMIT 
#endif 


(deg_to_rad  (aen>_data[49])) 
(deg_to_iBd  (aero_data[50])) 
(deg_to_rad  (aen>_data[51])) 
aero_data[52] 


#defineATT_CTL  PITCH_P_GAIN 
#defineATT  CTL  PITCH  I_GAIN 
#define  ATT  CTL  ROLL_P_GAIN 
#defineATT  CTL  ROLL  I_GAIN 


aero_data[53] 

aero_data[54] 

aero_data[55] 

aero_data[56l 


#define  HOVER.AUG_ROLL_P_GAIN 
«define  HOVER  AUG_ROLL_I_GAIN 
#define  HOVER  AUG  PITCH.P  GAIN 
#define  HOVER  AUG  PITCH_I_GAIN 
«defme  HOVER  AUG  YAW^P.GAIN 
#define  HOVER  AUG  YAWJ.GAIN 
«define  HOVER  AUG  CLIMB  P  GAIN 
«define  HOVER_AUG_CLIMB  J.GAIN 
»defineMAX  STAB  AUG  PITCH  ROLL, 
idefine  MAX  STAB_AUG_YAW_CLIMB. 


aero_data[57] 

aero_dataI58] 

aero_data[59] 

aero_data(60] 

aero_data[61] 

aerD_data[62] 

aerD_data[63] 

aero_dataI64] 

.CeWTROL  aero_data[651 

.CONTROL  aero_data[66] 


#defineROLL_RATE  DAMPING  GAIN 
#define  PITCH  RATE  DAMPING  GAIN 
«defineYAW  RATE  DAMPING  GAIN 
#define  VERTICAL  ^TE_DAKffING_GAIN 
«define  LATERAL.VELOOTY.DAMFWG.GAIN 


aen>_data[67] 

aen>_data(681 

aeiD_data[69] 

aero_data(70] 

aero_data[71] 


#defineLIFT_COEFF  VIRTU AL_WING 
#define  OSV\  ALD.EFnC.FACIOR 
#define  INDUCED  DRAG.COEFF 


aero_data[72] 

aero_data[73] 

aero_data[74] 


static  REAL  aero_data[100]  =  { 


50000.000,50000.000,50000.000,  4881.000, 

9.8, 

0.0, 

0.0, 

-0.100,  25.0, 

Of), 

0.0, 

0.0, 

0.0,  0.0, 

1.0, 

0.0, 

30.0, 

3.0,  0.0, 

-9.1, 

0.0, 

5.0, 

60.0,  0.0, 

Of), 

2.0,  123500f), 

25,  76476.0, 

100000.0, 

100000.0,  05,  0.4,  0.0, 

-9.1, 

0.0, 

8909.1, 

1684.8,  0.0, 

50.0, 

0.02, 

100.0, 

0.06,  50.0, 

6f), 

45, 

5.15, 

0.44,  15f), 

10.0, 

6f), 

15.46, 

25,  0.05, 
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5.0, 

0.05, 

0.1, 

0.001, 

0.1, 

0.001, 

10.0, 

5.0, 

lA 

05, 

02, 

0.06, 100000.0, 

100000.0,  100000.0, 

2000.0, 

1000.0, 

0.6, 

0.9, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

1; 

0.0, 

0.0, 

0.0, 

0.0 

static  REAL  aero_init{20]  =  ( 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

OA 

0.0, 

0.0, 

0.0, 

0.0 

}; 

static  REAL  aero_siniple[20]  =  { 


500000.0, 

05, 

48.0, 

0.15, 

10.0, 

100.0,  150000.0, 

lA 

0.7, 

0.03, 

400000.0, 

100.0, 

0.0, 

0.0, 

0.0, 

0.0,  0.0,  OA  0.0,  0.0 

); 


static  REAL  aero_stealth[201 «  { 


80.0,  30A  10.0, 1 


5000A  25000.0,  0.03,  OA  OA 

0.0,  0.0,  0.0,  0.0,  0.0, 

OA  0.0,  0.0,  0.0,  0.0 

); 


A 


static  int  hover_hoId_state; 


/•OFF  or  ON  V 


static  REAL  M/TN_ROTOR  MAST  TILT  SIN; 
static  REAL  MAIN_ROTOR_MAST_TILT_COS; 


static  REAL  altitude; 
static  REAL  true_air^)eed; 
static  REAL  last.air^eed  =  0; 
static  REAL  vertical_speed; 
static  REAL  roll; 
static  REAL  pitch; 
static  REAL  roll.rate; 
static  REAL  pitch_rate; 
static  REAL  g_force; 
static  REAL  last_g_force; 
static  REAL  yaw.rate; 
static  REAL  pitch_dainping; 
static  REAL  roll.damping; 
static  REAL  ya%v_damping; 


/•m*/ 

/•  m/sec  •/ 
/•  m/sec  •/ 
/•  m/sec  */ 
/*  lad  •/ 

/•  rad  •/ 

/•  rad/sec  •/ 
/•rad /sec  •/ 


/•  rad/sec  •/ 
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static  REAL  ambient.tempeniture;  /*degRV 

static  REAL  ambient_pressure;  /•  N  /  in'^2  •/ 

static  REAL  aihbient.density;  /•kg/m'^S*/ 

static  REAL  dynamic_pressure;  /•  N  /  in''2  •/ 

static  REAL  main_rotor_thrust;  /•  N  •/ 

static  REAL  tail_rotor_thrust;  /*  N  •/ 

static  REAL  lift_virtual_wing;  /•  N  */ 

static  REAL  lift.vstab; 

static  REAL  lift_coefficient_virtual_wing; 

static  REAL  lift.coeffident.vstab; 

static  REAL  total_drag; 

static  REAL  total_incompressible_drag_coefficient; 
static  REAL  gross_wcight;  /*  N  •/ 

static  REAL  vehicle.mass;  /*  kg  */ 

static  REAL  angle_of_attack;  /*  rad  •/ 

static  REAL  side_slip_angle;  /•  rad  */ 

static  REAL  main_rotor_load_torque;  /*  N-m  */ 
static  REAL  tail_n)tor_k)ad_torque;  /•  N-m  */ 
static  REAL  powertrain_peroent_shaft_speed;  /*  0-1  •  / 

static  REAL  cyclic_pitch;  /*  -1  to  1  •/  /•  Flight  controls  •/ 

static  REAL  cyclic_roll;  /•  -1  to  1  •/  /*  Fli^t  controls  */ 

static  REAL  collective;  /*  0  to  1  */ 

static  REAL  pedal;  /•  -1  to  1  */ 

static  REAL  stab_aug_pitch; 

static  REAL  stab_aug_Toll; 

static  REAL  stab_aug_yaw; 

static  REAL  stab_aug_climb; 

static  REAL  stab_aug_pitch_integrator; 

static  REAL  stab.au^rolljntegrator; 

static  REAL  stab_aug_yaw_integrator; 

static  REAL  stab_aug_clinib_integrator; 

static  REAL  hover_aug_pitch_angle; 

static  REAL  hover_aug_roll_angle; 

static  REAL  hover_aug_pitch_integrator; 

static  REAL  hover_au^roll_integrator; 

static  REAL  attitude_control_roll_integrator; 

static  REAL  attitude.controLpitch.integrator; 

static  REAL  attitude_control_roll_ooininand; 

static  REAL  attitude_control_pitch_oommand; 

static  REAL  controller_cyclic_pitch; 

static  REAL  controller_c^ic_roll; 

static  REAL  controller.collective; 

static  REAL  controller_tail_rotor; 

static  REAL  *ang;ular_velocity_vector;  /*  kinematic  state  vectors  *  / 
static  REAL  *normalized_velocity_vector; 
static  REAL  *velocity_vector; 
static  REAL  •gravity_dir_vector; 

static  REAL  p_drag_fit_coeff(9];  /*  parasite  drag  fit  coefficients  *  / 
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static  REAL  oswald_effide.icy_factor; 
static  REAL  induced_drag_coefficient; 
static  REAL  parasite_drag_coeffident; 

static  VECTOR  k)c_ac_inain_rotor_cop; 
static  VECTOR  loc_ac_tail_rotor_cop; 
static  VECTOR  loc_ac_virtual_wing_cop; 
static  VECTOR  loc_ac_vstab_cop; 
static  VECTOR  loc_ac_cg; 

static  VECTOR  lift_body_virtual_wing;  /•  body  IX  Y  Z]  */ 

static  VECTOR  lift_body_vstab; 

static  VECTOR  foice_body_main_TOtor; 

static  VECTOR  foice_body_tail_rotor; 

static  VECTOR  fotx%_body_damping; 

static  VECTOR  drag_body; 

static  VECTOR  gravity_force_body; 

static  VECTOR  foPce_ground_effect; 

static  VECTOR  force_body;  /*  sum  of  all  forces  */ 

static  VECTOR  nioment_body_virtual_wing;  /•bodyIXYZ]*/ 

static  VECTOR  inoment_body_vstab; 

static  VECTOR  moinent_body.main_rotor; 

static  VECTOR  moment.body.totque.oouplii^ 

static  VECTOR  inoment_body_tail_rotor; 

static  VECTOR  moment_body_cg; 

static  VECTOR  moment_body_damping; 

static  VECTOR  moment.body; 

static  VECTOR  virtual_wing_foPce;  /•  velodty  [H  D  LJ  •/ 

static  VECTOR  vstab.foroe; 
static  VECTOR draglorce; 

static  T_MAT_PTR  velodty_to_body;  /•  vel  ->  body  xform  •/ 

static  T  MATRIX  inertia  matrix  = 

{(5000a0,0,0}, 

I0,50000i),0), 

(0,0,50000.0)); 

int  funny Jittle.kludge  =  1;/*  default  is  logarithmic  for  complex  model  */ 
static  int  aerodyn_debug  -  Q; 

static  int  selected.model  =  COMPLEX_MODEL;  I*  default:  James'  model  *! 
static  int  allow.takeoff  =  TRUE;  /*  allow  stealth  model  to  t^  off  */ 
static  int  level_view  =  TRUE;  I*  unset  any  pitch  •/ 

static  REAL  ground_height  =  2.8; 

void  aero_body4X)int_set_front_wheels(  distance_from_hull ) 

REAL  distance_from_huli; 
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{ 

body_pomt(0].positionIZ]  =  distance_from_htill; 
body_point[ll.position[Z]  =  distance_from_hull; 
ground_height  =  (REALK((intX-di8tance_froin_huU  *  10))  /  10.0); 
printff  Tront  Wheels  set  %1.41f  nv  under  HuU.\n”, 
distance  from  hull); 

) 

void  aero_body_point_set_rear_wheel(  distance_from_hull ) 

REAL  distance  from  hull; 

{ 

l>ody_point[2].position(Z]  =  distance_from_hull; 
printff  Ttear  Wheel  set  %1.41f  m.  under  HuD.\n", 
distance  from  hull); 

) 

REAL  aero_get_ground  heighK) 

{ 

retum(  ground_height ); 

1 

voidaerodyn  initO 

{ 

inti; 

/•  DEFAULT  DATA  FOR  rwa.aerodymc  READ  FROM  FILE  */ 

int|; 

float  data.tmp; 
diar  descript(64]; 

FILE  ‘fp; 

fp  =  fopenC/simnet/data/rwa  aeroxi","r"); 
if(fp*=NULL)| 

fprintffstderr,  "Cannot  open  /simnet/data/rwa_aero.d\n”); 
cxitO; 

) 

rewind(fp); 

/*  Read  array  data  */ 

H); 

while(f»anf<fp,"%r',  4cdata_tmp)  f=  EOF){ 
aerojdata[j]  =  data^tmp; 
fgetsfdescript,  64,  fp); 

ptintfraero_data(%3d)  is%113f  %s",  j,  aero.datalj], 
descript); 

++i; 

) 
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fdoseffp); 

/•  END  DEFAULT  DATA  FOR  rwa_aen)dyn.c  READ  FROM  FILE  */ 

/•  DEFAULT  INrnALI2ATION  DATA  FOR  rwa_aerodyn.c  READ  FROM  FILE  */ 
fp  =  fopen("/simnet/data/rw_ae_in.d’V’r"); 
if(fp==NULL)( 

fprintfCstderr,  "Cannot  open  /simnet/data/rw_ae_in4i\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  array  data  */ 

while(fscanf(fp,"%f &data_tmp)  !=  EOF){ 
aero_init[j]  =  data_tmp; 
fgetsfdescript,  64,  fp); 

printf("aero_init(%3d)  is%11.3f  %s",  j,  aeio_initIj], 
descript); 

-H-j; 

) 

fcloseffp); 

/•  END  DEFAULT  INITIALIZATION  DATA  FOR  rwa.aerodynx  READ  FROM  FILE  V 

/•  DEFAULT  SIMPLE  INTOAUZATION  DATA  FOR  rwa_aerodyn.c  READ  FROM  FILE  V 
fp  =  fopen("/sinmet/data/rMr  ae  spxi","r"); 
if(fp=NULL){ 

fprintfCstderr,  "Cannot  open  /sininet/data/rw_ae_sp.d\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  array  data  */ 

H); 

while(fscanf<fp,"%r,  &data_tmp)  !=  EOF){ 
aero_siinple{j]  =  data.bnp; 
fgetsCdescript,  64,  fp); 

printf("aero_simpld%3d)  is%113f  %8",  j,  aero_simple[j], 
descript); 

-H-j; 

) 

fcIoseCfp); 

/•  END  DEFAULT  SIMPLE  INITIALIZATION  DATA  FOR  rwa_aen)dyn.c  READ  FROM  FILP/ 

/•  DEFAULT  STEALTH  INITIALIZATION  DATA  FOR  nva_aerodyn.c  READ  FROM  FILE  */ 
fp  =  fopen("/siinnet/data/rw_ae_slxI","r"); 
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if(fp=NULL){ 

fprintf(stderr,  "Cannot  open  /smmet/data/rw_ae_sl.d\n”); 
exitO; 

} 

rewind(fp); 

/*  Read  array  data  */ 
j=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 
aero_stealth[j]  =  data_tmp; 
fgetsCdescripL  64,  fp); 

printf("aero_steaUh(%3d)  is%113f  %s",  j,  aero_steaIth[j], 
descript); 

++j; 

) 

fclose(fp); 

/•  END  DEFAULT  STEALTH  INmAUZATIW  DATA  FOR  rwa  aerodyn.c  READ  FROM 
FILE*/ 

engine_init(); 

cyclic_pitch  =  aero_init[  0]; 

<ydic_roll  =  aero  initi  1]; 

if  (selected.model  !*  STEALTH.MODEL) 
collective  =  aero_init[  2J; 

else 

{ 

collective  =  0.5; 
allow  takeoffs  TRUE; 

} 

pedal  =  aero_init[  3]; 

stab_aug_pitch_integrator  =  aero_init{  4J; 

stab_aug_rollJntegFator=  aero_init[  5]; 

stab_aug_yaw .integrator  =  aerojnitf  61; 

8tab_aug_cliinb_integrator  =  aerojnitf  71; 

attitude_oontfol_pitch_integrator  =  aerojnitf  81; 
attitude_oontn>I_roll_integrator  =  aero.initf  9]; 
hover.augjntch.integrator  =  aero.initf  10]; 

hover_aug_roll Jntegrator  =  aero.initfll]; 

hover.augjMtch.angle  =  aeio_initfl2]; 

hover_au^TolI_angle  =  aero_initfl31; 

hover_hold_state  =  OFF; 
hover_hold_tumed_on  =  FALSE; 

loc_ac_inain_iotor_cop[Xl  =  MAIN_ROTOR_COP_AC_X; 
loc_ac_main_iDtor_cop{Yl  =  MAIN_ROTOR_COP_AC_Y; 
loc_ac_inain_Totor_cop(zi  =  MAIN_ROTOR_COP_AC_Z; 


-B-11- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  B  -  Source  Code  Listing  for  rwa_aerodyn.c 


loc_ac_tail_n)tor_cop[X]  =  TAIL_ROTOR_COT_AC_X; 
loc_ac_tail_n)tor_copiY]  =  TAIL_ROTOR_COT_AC_Y; 
loc_ac_tail_rotor_copizi  =  TAIL_ROTOR_COP_AC_Z; 

loc_ac_virtual_wing_copJX]  =  VIRTUAL_WING_COP_AC_X; 
loc_ac_virtual_wing_cop{Y]  =  VIRTUAL_WING_COP_AC_Y; 
loc_ac_virtual_wing_oop[zi  =  VIRTUAL_WING_COP_AC_Z; 

loc_ac_vstab_cop[XJ  =  VSTAB_COP_AC_X; 
loc_ac_vstab_cop[Y]  =  VSTAB_COP_AC_Y; 
loc_ac_vstab_copIZ]  =  VSTAB_COP_AC_Z; 

loc  ac  cgIXl  =  CG  AC_X; 
loc_ac_cgIY]  =  CG_AC_Y; 
loc_ac_cg[zi  =  CG_AC_Z; 

inertia  matrixll]  [1]  =  MOMENT_OF_INERTIA_X; 
inertiaZmatrixI21  (21  =  MOMENT_OF_INERTIA_Y; 
inertia_niatrix[3]  [3]  =  MOMENT_OF_INER‘nA_Z; 

pitch_damping  =  PrTCH_RATE  DAMPING_GAIN; 
roll_damping  =  ROLL_RATE  DAMPING  GAIN; 
yaw.damping  =  YAW_RATE_DAMPING_GAIN; 

MAIN.ROTOR.MAST.TTLT  SIN  =  sin(MAIN  ROTOR  MAST  TILT); 
MAIN_ROrOR_MAST_TILT_COS  =  cos(MAIN_ROrOR_MAST_TILT); 

veejnit  (vstab_force); 

veejnit  (drag_foroe); 

veeJnit  (ground_force); 

veejnit  (force_ground_effect); 

veejnit  (foroe_body); 

veejnit  (moment.body); 

veejnit  (moment.body Jorque.eoupling); 

veejnit  (foroe_body_main_rotor); 

veejnit  (force_body_tail_rotor); 

veejnit  (force_body_daniping); 

vehiele.massjnit  (AIRFRAME_MASS  +  ORDINANCE_MASS,  inertia_matrix ); 
gn>und_init(); 

for  (i=0;  i<9;  i-M-)  /*  Set  parasite  drag  profile*/ 

{ 

p  drag_fit  eoeffli]  =  0.0; 

) 

if  (find  eubie  fune(0.0,P  DRAG  COEFF  CONST, 

P  DRAG  TAS~  BREAICP  DRAG  COEFF.BREAK, 
P_DRAG_TAS_MAX,  P_I^G_CbEFF_MAX, 
o3,  p_drag_fit_ooeff)  !=  TRUE) 
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{ 

fprintf  (stderr,  "AERODYN:  Error  -  unable  to  fit  p_drag  functionXn”); 

) 

/*  So  one  can  tweak  the  constants  without  recompiling  */ 
if  (selected.model) 

aerodyn_read_simple_constants  (get_constanls_file  ()); 

) 

static  void  get  aircraft  kineinatic_state() 

{ 


orientation_calc(); 

parameters.calcO; 

true.airspeed  =  kineinatics_get_true_airspeed(); 
altitude  »  kinematics_get_altitude(); 

angular_velocity_vector  =  kinematics_get_ai^lar_velocity_vector(); 

normalized_velocity_vector  =  kinematics_get_nonnalized_velocity_vector(); 

velodty.vector  =  kbtematics_gBt_linear_velocity_vector(); 

gravity_dir_vector  =  kineinatics_get_gravity_vector(); 

angle.of.attack  =  kineinatics_get_aoa(); 

side_slip_angle  =  -  kinematics_get_yaw(); 

velocity_to_body  *  kinematics_g!et_velocity_to_body(); 

gjfoTce=  kineinatics_get_g_forceO; 

vertical.^xed  =  kinematic5_g;et_vertical_speed(); 


static  void  deb_inat_print  (m) 

T_MATRIX  m; 

{ 

inti; 

for  (i=0;  i<=2;  i++) 

( 

printfr%031f  %031f  %0.31f\n",  inlil[01,  mJillU,  inlill2]); 

) 

) 

static  void  compute  flight  parametersO 

( 

ambient_density  ^  air_density(altitude); 

ambient_temperature  =  air_teiiq7erature(altitude); 

ambient_pres8ure  =  air_pressure(altitude); 

dynamic_pressure  =  05  *  ambient.density  *  square  (true.airspeed); 

pitch_rate  =  angular_velodty_vector(Xl; 

roll_rate  =  ang;ular_velodty_vector[Yl; 

yaw_rate  *  ang;ular_velocity_vector(Z]; 

roll  =  atan2  (-gravity_dir_vector(XJ,  -gravity_dir_vector[Z]); 

pilch  =  atan2  (-gravity_dir_vectOT(Y],  -gravity_dir_vector[Z]); 
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) 

static  void  inteFact_with_g;rouird() 

{ 

REAL  brake.factor; 

brake.factor  =  normalized_veIodty_vector[Yl  * 
true.airspeed  /  (true_airspeed  +  5); 
body_point[0].x_force  =  -  6000  *  brake.factor; 
body_pointili.x_force  =  body_pointl0l.x_foice; 

ground  interaction(g;round_force,ground_torque,body_point,g;rrKi, 
NUMBER_OF_BODY_POINTS); 

foroe_grourKi_cffect[Zl  =  main_rotor_thrust 

•  MAIN_ROTOR_GROUND_EFFECT_FACrOR 
/  (cig_altitude  above_grul()  + 1.0); 

1 


/*  fuel  get  current  level  returns  gallons  */ 

/•  gals •  (65 lbs /gal)* (1kg /2Z lbs)  */ 

«define  KILOCniAMS  PER  GALLON  2.95454545454 


static  void  compute_gross  weightO 

{ 

vehicle  mass  »  AIRFRAME  MASS  +  ORDINANCE  MASS  + 
fuel_get_currentjevel()  •lOLOGRAMS.PER.GALLON;/*  kg  */ 

gross  weigjht  =  vehicle  mass  *  GRAY  CONSTANT;  /*  N  */ 

) 

void  aerodyn_set  lateral  stick  (val) 

REALval; 

{ 

cyclic  roll  = -val; 

) 

voidaetodyn  set  longitudinal_stick  (val) 

REALval; 

{ 

cyclic_pitch  =  -val; 

) 

voidaerodyn  set  pedal  (val) 

REALval; 

( 

pedal  =  val; 

1 
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void  aerodyn_set_collective  (val) 

REALval; 

( 

if  (funnyjittle_kludge) 

collective  =  loglO  (val  •  9.0  + 1.0);  /•  or,  how  to  make  linear  log  •/ 
else 

collective  =  val; 

) 

static  void  compute  lift_drag_forces() 

{ 

lift_virtual_wing  =  dynamic_pressure  * 

lift_coeffident_virtual_wing  *  VIRTUAL_WING_AREA; 

lift_vstab  =  dynamic_pressure  *  lift_coefficient_vstab  *  VSTAB_AREA; 

total  drag  3=  total  incompressible_drag_coefhcient  *  dynamic_pressure  * 

TOTAL  WETTED  SURFACE.AREA; 

1 

static  void  compute_body  damping_forces  and  momentsO 

{ 

mofnent_body_damping[X]  =  -  pitch_damping  •  pitch_rate; 
moment_body_damping[Y]  =  -  roU.damping  •  roll_rate; 
moment.body.dampinglz]  =  -  yaw_damping  •  yaw_rate; 

force_body_damping[Xl  =  -veiodty_vector[XJ  *  LATERAL_VELOQTY_DAMPING_GAIN; 
foroe_body_damping[Y]  =  0.0; 

force  body.dan^ingJZ]  =  -velocity  vectorJZ]  •  VERTICAL  RATE  DAMPING  GAIN; 

) 

static  REAL  virtual_wing_Iift_coefficient  (alpha) 

REAL  alpha; 

i 

if  (alpha  >  WING_STALL_AOA  I  I  alpha  <  0.0) 
return  (0.0); 
else 

return  (((WING_LIFT  COEFFICIENT  FIT_3  *  alpha  + 

WING.U^  c6EFnC3ENT_Flf_2)* alphas 
WING_LIFT_CX)EFnCIENT_FITJ)  •  alpha  + 

WING_LIFT_COEFFICIENT_Frr_0); 


static  REAL  vstabJift_coefficient  (yaw) 

REAL  yaw; 

{ 

REAL  yawval; 

if  (abs(yaw)  >  VSTAB_STALL_SSA) 
yawval  =  sign(yawval)  •  VSTAB_STALL_SSA; 
else 
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yawval  =  yaw; 

return  (VSTAB.UFT  COEFFICIENT  1  *  yawval); 

) 

static  void  compute_lift_drag_coeffidents() 

{ 

REAL  multiplier; 

lift_coefficient_vstab  =  vstab_lift_coeffident  (side_slip_angle); 

/*  Computing  virtual  wing  coeffident  as  independent  of  AOA  */ 
lift_coeffident_virtual_wing  =  LIFT_COEFF_VIRTUAL_WING; 

/*  virtual_wing_lift_coeffident  (angle_of_attack);  •/ 

parasite_drag_coeffident  =  cubic_func  (true_airspeed,  p_drag_fit_coefO; 

if  (true_airspeed  >  0.0  &&  angle_of  attack  >  0.0)  /*  speed  brake  */ 

{ 

multiplier  =  5.0  *  trtie_airspeed  *  sin(angIe_of_attack); 
if  (multiplier  >  1.0) 

parasite_drag_coeffident  *=  multiplier; 

) 


oswald_effidency_factor  =  OSWALD_EFFIC_FACTOR; 
induced_drag_coeffident  -  INDUCED_DRAG_COEEF; 


total_inoompressible_drag_coeffident  =  parasite_drag_coeffident  + 
mduced_drag_coeffident; 


) 


static  void  send  to_dynamics  kmematicsO 

( 

vehide_tTrass_init  (vehide.mass,  inertia_matrix); 
vehide_forces  (foroe_body); 
vehicle  torques  (nroment  body); 

) 


void  dump_fbrces() 

( 

vec_dump  ("lift_body_virtual_wing:",  lift_body_virtual_wing); 
vec_dump  ("lift_body_vstab:",  lift_body_vsfab); 
vec_dump  {"drag_body:",  drag_body); 
vec_dump  ("gravity_force_body:",  gravity_force_body); 
vec_dump  ("force_body_iiuin_rotor",  force_body_main_rotor); 
vec_dump  ("force_body_tail_rDtor:",  foroe_body_tail_rotor); 
vec_dump  ("grouird_force:",  ground_force); 
vec  dump  ("force_body:",  force_body); 

} 


static  void  sum_body_forces_aivl_nH)ments_about_ac() 
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{ 

veejnit  (force_body); 

vec_iuid  (f6rce_body,  force_body_main_ix)tor,  force_body); 

/*  vec_add  (force_b^y,  fbroe_b^y_tail_rotor,  foroe_body);  */ 
vec.add  (lbroe_body,  lift_body_virtual_wing,  force_body); 
vec.add  (force_body,  lift_body_vstab,  foroe_body); 
vec.add  (force_body,  drag_body,  force_body); 
vec_add  (fbrce_body,  force_body_damping,  force_body); 
vec.add  (f6roe_body,  gravity_force_body,  force_body); 
vec.add  (fbroe_body,  ground_force^orce_body); 
vec.add  (f6roe_body,  force_ground_effect,  force_body); 

vec_cioss_prod(loc_ac_tail_rotor_cop,  foroe_body_tail_rotor, 
inoinent_body_tail_n)tor); 

vec_cn)ss_prod(loc_ac_virtual_wing_cop,lift_body_virtual_wing, 

inoinent_body_virtual_wing); 

vec_cross_prod(loc_ac_vstab_cop,  lift_body_vstab,  monvent_body_vstab); 
vec_cross _prod(loc_ac_cg,  gravity_foroe_body,  moinent_body_cg); 

veeJnit  (monnent_body); 

vec_add  (moment.body,  monrtent_body_main_rotor,  moment_body); 
vec_add  (moment.body,  nK)ment_body_tail_rotor,  moment.body); 
vec.add  (monwnt.body,  nK)ment_body_virtual_wing,  moment.body); 
vec.add  (montent.body,  moment_body_vstab,  moment_body); 
vec.add  (monnent.body,  nion^t_body_<^  nooment.bc^y); 
vec.add  (moment.body,  ground.torque,  moment.body); 
vec.add  (moment_body,  inoment_body_dainping,  moment.body); 


static  void  transform  Iift_drag_forces  to  body_coordinates() 

{ 

virtual_wing_force{Zl  =  lift_virtual_wing;  /•  [H,  D,  L]  */ 
v8tab_forceIX]  =  lift_vstab; 
drag_forcelY]  =  -total.dFag; 

if  (tnie.airspeed  <  P_DRAG_TAS_BREAK)  /•  jwc  8/90  */ 

drag_forre{Y]  -=  sinfpitchr*  50000; 

vec_nuit_mul  (virtual_wing_force,  vdocity_to_body,  lift_body_virtual_wing); 
vec_mat_mul  (vstab_force,  velocity_to_body,  Iift_body_vstab); 
vec_inat_inul  (drag_force,  vdocity_to_body,  drag_body); 


static  void  generate_gravity_body_force() 

{ 

compute_gross_wdght(); 

gravity_foTce_body(X]  =  gTavity_dir_vector{XJ  •  gross_weight; 
gravity_force_body(Y]  =  gravity_dir_vectoriY]  *  gross_weight; 
gravity_force_body(zi  =  gravity_dir_vector{ZI  •  gross.weight; 
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static  int  frame; 

voidaerodyn  debug_print() 

{ 

REAL  roll,  pitch,  yaw,  heading,  air^)eed_knots,  weight.lbs,  thrustjbs; 
REAL  ^position; 

roll®atan2(-giavity_dir_vector(Xl,-gravity_dir_vectortZ])  *180.0  /  3.1416; 

pitch=atan2(-gravity_dir_vectorI'Vl,-gravity_dir_vector(Z])*180.0  /  3.1416; 

yaw  =  side_slip_angle; 

airspeed.knots  =  true.airspeed  *  3.26  /  1.69; 

weightjte  =  gross_weight  /  9.8  *  2.2; 

position  =  vehicle_A_p(); 

headings  rad  to  deg  (kinenuitics_get_heading()); 
printf  (TCTAS  =  %021f  W  =  %0.31f  %031f  %03M  YR  =  %031f\n”, 
airspeed.knots,  velocity_vector(X],  velocity_vector(Yl, 
velodty_vector[Z],  angular_velodty_vectorfZ]); 
printf  ("3^  =  %031f  %031f  %03U  %o!^  rpy  =  %031f  %031f  %031f\n", 
positionIX],  positionlY],  positionJZ],  heading, 
roll,  pitch,  yaw); 
if  (hover_hold_state  =  ON) 
printf  rstab_aug{rpycl:%031f  %031f  %031f  %031f\n", 
stab_aug_roll,  stab_aug_pitch,  stab_aug_yaw,  stab_aug_djinb); 


static  void  compute  rotor  loadsC) 

{ 


) 


main_rotorJoad_torque  =  controUer.coUective  * 

MAIN_ROTOR_MAX_LOAD_TORQUE; 
tail_rotorJoad_torque s abs (controller  tail  rotor)* 

TAIL_ROTOR_MAX_LbAD_TORQUE; 


static  void  compute  engine  torqueO 

( 

engine_simul(main_rotor_load_torque,  tail_rotor_load_torque,  altitude); 
powertrain_percent_shaft_speed  =  engine _get_rotor_percent_shaft_speed(); 


static  void  compute  rotor  forces  and_momentsO 

( 

main_rotor_thrust  =  powertrain_peroent  shaft  speed  *  controller  collective 

*  MAIN_ROTOR_MAX_THRUST; 

tail_rotor_thrust  =  powertrain  percent  shaft  speed  *  controller  tail_rotor 

*  TAIL_ROTOR_M  AX.THRUSin 

foroe_body_main_rotor(Y)  =  main_rotor_thrust  *  MAIN_ROTOR_MAST_TILT_SIN; 
fdroe_body_main_rotor(Z]  =  main_rotor_thrust  *  MAIN_ROTOR_MAST_TILT_COS; 


-B-18- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  B  -  Source  Code  Listing  for  rwa_aerodyn.c 


force_body_tail_n)torIX]  =  tail_rotor_thrust; 
moment_body_inain_rotor[Xl  = 

-  contiDller_cyclic_pitch  •  MAIN_ROTOR_MAX_PITCH_MOMENT; 
monwnt_body_main_iDtortY]  = 

oontroller_cyclic_roll  *  MAIN_ROTOR_MAX_ROLL_MOMENT; 
moment_body_main_n>tor(Z]  = 

-  main  rotor_Ioad  toixjue  *  MAIN_ROTOR_TORQUE_COLJPLING_GAIN; 

) 

static  REAL  limiter  (lower,  val,  upper) 

REAL  lower,  val,  upper; 

( 

if  (val  >  upper)  return  (upper); 
else  if  (val  <  lower)  return  (lower); 
else  return  (val); 

1 

static  REAL  set_roll_attitude  (angle) 

REAL  angle; 

{ 

attitude_control_roll_integrator  +=  ATT_CTL_ROLL_I_GAIN  *  (roll  •  angle); 
yMM  used  to  be  attitude_control_pitch_integrator  instead  of 
attitude_control_roll_inlegrator.  PJM  11-1-S9 
attitude_control_pitch_integrator  = 

liiniter  (-0.1,  attitude_control_pitch_integrator,  0.1); 

attitude_oontrol_roll_integrator  = 

limiter  (-0.1,  attitude_oontrol_roll_integrator,  0.1); 
attitude_oontrol_roll_command  =  ATT_CTL_ROLL_P_GAIN  *  (roll  -  angle); 
attitude_contiDl_roll_command  +=  attitude_control_roll_integrator; 
attitude_oontrol_roll_command  =  limiter  (-MAX_STAB_AUG_PITCH_ROLL_CCX'JTROLa 
ttitude_ccmtrol  roll  command, 

MAX_STAB_AUG_PITCH_ROLL_(3DNTROL); 
return  (attitude  control  roll  command); 

) 

static  REAL  set_pitch_attitude  (angle) 

REAL  angle; 

{ 

attitude  control  pitch_integrator += 

ATT_CTL_PITCH_I_GAIN  •  (pitch  -  angle); 
attitude_controI_pitch_integrator  = 

limiter  (-0.1,  attitude_control_pitch_integTator,  0.1); 
attitude_control_pitch_command  =  ATT_CTL_PrrCH_P_GAIN  •  (pitch  -  angle); 
attitude_control_pitch_command  +=  attitude_control_pitch_integrator; 
attitude_control_pitch_command  =  limiter  (-MAX_ST  AB_  AUG_PrTCH_ROLL_CON  I'kOLa 
ttitude  control_pitch  command, 

MAX_STAB_AUG_PITCH_ROLL_CX)NTROL); 
return  (attitude  contiol_pitch_command); 

} 
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static  void  compute  stab_auginentation_gains() 

{ 

if  (hover  hold_state  =  ON) 

( 

if  ( !hover_hoId  turned  on ) 

{ 

hover_hoId_tumed_on  =  TRUE ; 

pitch_damping  =  2  •  PrrCH_RAT1E_DAMPING_GAIN;  /•  jwc  8/90  */ 
n)Il_damping  =  2  •  ROLL_RATE_DAMPING_GAIN; 

/*  You  should  already  be  "hovering”  (airspeed  <  10  knots) 
for  hover  hold  to  show  little  visible  swaying.  */ 

hover_aug_roll_integrator  =  0.0 ; 

hover_aug_pitch_integrator  =  HOVER_AUG_PITCH_RESET_VALUE ; 
stab_aug_yaw_integrator  =  0.0 ; 
stab_aug_dimbJntegrator  =  0.0 ; 

#if  ATr_DAMPING_MODE_SIMPLE 

if  (true  airspeed  <  HOVER  SLOW  LIMID 

{ 

if  (true  airspeed  >  -HOVER  SLOW  UMIT) 
MAX.ATT.CTL.ANGLE  =  MAX_ATr_CrL_ANGLE_SLOW ; 
else  if  (tnie.airspeed  >  -HOVER_MED  LIMIT) 
MAX_ATr_CTL.ANGLE  »  MAX_AiT_CTL_ANGLE_MED; 
else 

MAX  ATT.Cnr  ANGLE  =  MAX  ATT  CTL  ANGLE_NORM ; 

) 

else  if  (true.airspeed  <  HOVER_MED_LIMID 

MAX_ATT_CrL_ANGLE  =  MAX_ATr_CTL_ANGLE_MED ; 
else 

MAX_ATT_CTL_ANGLE  =  MAX_ATr_CTL_ANGLE_NORM ; 

#endif 

1 


#if  ATT  DAMPING  MODE  SIMPLE 

if  (frue  airspeed  >  HOVER_SLOW_LIMIT ) 
MAX.ATT.CTL.ANGLE  = 

1^  tnie.airspeed  )  *  MAX_ATT_DAMPING_FACTOR ; 
else  if  (true  airspeed  <  -HOVER  SLOW  LIMIT ) 
MAX_ATT_CTL_ANGLE  = 

k)g(  -true.airspeed  )  •  MAX_ATT_DAMPING_FACTOR ; 

else 

MAX_A1T_CTL_ANGLE  =  MAX_ATr_CTL_ANGLE_STOP ; 


MAX_ATT_CTL_ANGLE  =  deg_to_rad(  MAX_ATT_CTL_ANGLE ); 
#endif 
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hover  aug_roIl_integrator += 

HOVra_AUG_ROLL_I_GAIN  •  velodty_vector{Xl; 
hover_aug_rollJntegrator  = 

liniiter<-024iover_aug_roll_inlegrator^.2); 
hover_aug_roll_angle  =  HOVER_AUG_RCX.L_P_GAIN  *  velodty_vectorlX] 

+  hover_aug_roll_integrator; 

hover_aug_roU_angle  =  limiter  (-MAX_ATT_CrL_ANGLE, 
hover_aug_roU  angle, 

MAX_ATT_CTL_ANGLE); 

stab_aug_roll  =  9et_H)ll_attitude  (hover_aug_roll_angle); 

hover  aug_pitch_integrator += 

HOVER_AUG_PlTCHJ_GAIN  •  velodty.vectorJY]; 
hover_aug_f)itch_integrator  = 

linuter(-0.2jiover_aug_pitchjntegiator,02); 
hover_aug_pitch_angle  =  HOVER_AUG_PrTCH_P_GAlN  •  velodty_vector(Y] 

+  hover_aug_pitch_integrator; 

hover_aug_pitch_angle  =  limiter  (-MAX_ATT_CTL_ANGLE, 
hover  aug_pitch  angle, 

MAX_ATT_CTL_ANGLE); 

stab_aug_pitch  =  set_pitch_attitude  (hover_aug_pitch_angle); 
stab_aug_yaMr_integrator  -= 

HO\^R_AUG_YAW_I_GAIN  *  angular_velodty_vector[Z]; 
if  (stab_aug_yaw_integrator  >  03)  stab.augjfaw.integrator  =  05; 
if  (stab_aug_yaw_integnitor  <  -05)  sUb_aug_yaw_mtegrator  =  -05; 
stab_aug_yaw  =  -  HOVER_AUG_YAW_P_GAIN  *  angular_velodty_vector[Z]  + 
stab_aug_yaw_integrator; 

stab_aug_climb_int^gFator  -= 

HOVER_AUG_CLIMB_l_GAIN  •  vdodty.vectorfZl; 
if  (stab_aug_climb_integFator  >  0.2)  stab_aug_dimb_integrator  =  0.2; 
if  (sUb_aug_climb_integrator  <  -02)  sUb_aug_climb_integrator  =  -02; 
stab_aug_climb  =  -  HOVER_AUG_CLIMB_P_GAIN  •  velocity_vector{Z)  + 
stab_aug_climb_integFator; 

stab_aug_yaw  =  Umiter  (-MAX_STAB_AUG_YAW_CLIMB_CONTROL, 
stab  aug_yaw, 

MAX_STAB_AUG_YAW_CUMB_CONTROL); 

stab_aug_climb  =  limiter  (-MAX_STAB_AUG_YAW_CLIMB_CONTROL, 
stab  aug_climb, 

MAX  STAB  AUG.YAW  CUMB  CONTROL); 

) 

else 

I 

stab_aug_roll  =  OO; 
stab_aug_pitch  =  0.0; 
stab_aug_yaw  =  0.0; 
stab_aug_climb  «  OjO; 
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pitch.damping  =  PITCH_RATE_DAMPING_GAIN;  /•  jwc  8/90  •/ 
roIl_damping  =  ROLL_RATE_DAMPING_GAIN; 

#ifdef  notdef 

hover_aug_roII_integrator  =  0.0;  /•  added  8/31  /89  (jwc)  */ 

hover_aug_pitchJntegrator  =  0.0; 

#endif 

} 

controller_cyclic_roll  =  cycUc_roU  +  stab_aug_ioll; 
oontroller_cyclic_pitch  =  cyclic_pitch  +  stab_aug_pitch; 
controller.tail.iotor  =  pedal  +  stab_aug_yaw; 
controller  collective  =  collective  +  stab_aug_diinb; 

} 

static  void  send  aero  data  to  displaysO 

{ 

if  (velocity_vector(Yl  >  0/)) 
meter_air_speed_seKtrue_air^)eed); 
else 

meter_air_speed_set  (0.0); 

meter_altitude_set(altitude); 

nieter_vertical_speed_set(vertical_speed); 


voidaerodyn  simulO 

{ 

get_aircraft_kinematic_state(); 

compute_flight_parameters(); 

compute_stab_augnnentation_gains(); 

oompute_rotorjoads(); 

compute_engine_torque(); 

oompute_rotor_fbrces_and_moments(); 

ooinpute_lift_drag_ooefficients(); 

compute_lift_drag_fbroes(); 

oompute_body_damping_forces_and_inoinents(); 

tranrfonn_lift_drag_forces_to_body_coordinates(); 

genera  te_gravity_body_foroe(); 

interact_with_^ound(); 

sufn_body_forces_and_moinents_about_ac(); 

send_to_dynanucs_kineinatics(); 

/•  send_aero_data_to_displays();  Must  call  if  not  calling  orientation_calc  */ 
vehicle  updated; 

} 

REAL  aerodyn_get  true  airspeedO 

( 

return  (true  airspeed); 

) 
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void  aerodyn  set  hover_hold_on  () 

{ 

hover  hold_state  =  CX^I; 

) 

void  aerodyn  set_hover  hoId_off() 

{ 

hover_hold_state  =  OFF; 
hover_hold_tumed_on  =  FALSE; 
level_view  =  TRUE; 

) 

void  aerodyn  toggle  hover  holdO 

{ 

if  (hover_hold_slate  ==  OFF) 
hover_hold_state  =  ON; 
else 
( 

hover_hold_state  =  OFF; 
hover  hold  turned  on  =  FALSE; 

) 

1 

void  forces  initO 

I 

aerodyn  inlK); 

) 


*  The  following  stuff  is  for  the  simplified  dynamics  model.  The  model  is  * 

*  a  modification  of  the  aerodynamics  model  Warren  wrote  for  the  SAF.  * 

*  Global  variables  defined  for  the  real  aerodynamics  are  reused  here  to  * 

*  allow  overlap  in  generic  routines  for  operations  such  as  control  inputs,* 

*init,etc.  -QC  * 


♦define  MAX_HELICX)PTER_POWER  aero.simplel  01 
♦define  MAX_HH  aero_simple[  1] 


/*  constants  for  tweaking  */ 

♦define  H_K1  aeio_simple{  2] 

♦defiiw  H_K2  aero_simple{  31 


/*  as  mciease  drag  coefficients,  hdicopter  slows  down  faster  */ 

♦define  H_K7  aeio_simple{  41 

♦defirre  H_K8  aero_simpleI  51 

♦define  H_KP  aero_simple(  61 

♦defiite  H_KPR  aero_simple{  7] 

♦define  H_KY  aero_simple(  81 
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#define  H_KH  aero_simple{  9] 

«define  H_CHH  aero_8imple{10] 

#defineH_CL  aero_simpIe{ll] 

void  aerodyn_simple_simuI  () 

( 

register  inti; 
register  REAL  •vec_ptr; 
register  REAL  •res_ptT; 
register  REAL  •cur_ptr; 
register  REAL  *des_ptr; 

REAL  •drag.ptr; 

REAL  power; 

REAL  colLfactor; 

REAL  liftjfactor; 


VECTOR  orient_vec; 

VECTOR  angular_accel; 

VECTOR  hover_hold_additions; 

REAL  euler[3];  /*  ^er  angles  */ 

VECTOR  gravity_vector;  /*  in  body  coordinates  */ 
T_MAT_PTR  C_niat;  /*  direction  cosine  matrix  •/ 


get_aircraft_kineinatic_state  (); 
generate_gn>vity_body_fbroe(); 
oompute_rotor_loads(); 
oompute_engine_torque(); 


if  (hover  hold  state  — ON) 

( 

hover_hold_additions(0]  =  min(velocity_vectoiilJ  *  H_KHA1AX_HH); 
hover_hold_additions(0j  =  max(hover_hoId_additionslo],-MAX_HH); 
hover_hoId_additions[lj  =  minC-  velocity_vectorfO)  •  H_KtLMAX_HH); 
hover_hoId_additions(l]  =  inax(hover_hoId_additions[l],-MAX_HH); 
hover  hold  additions(2j  =  -  velocity  vector(2)  •  H  KH  *  H  CHH; 

) 

else 


{ 

hover_hold_additions(0]  =  0; 
hover_hoId_additions(l]  =  0; 
hover_hold_additions[2]  =  0; 

1 


lift.factor  =  velodty_vector[l]  •  velocity_vector(l)  •  H_CL  * 

-  cydic_pitch; 

/••  original  comment  from  SAP  code  *•/ 

/*  may  want  to  put  in  power  limit  per  unit  time ...  */ 
coU.factor  =  max(0.0AX>Ilective  -  03); 
power  *  H_KP  •  coll.factor  +  hover_hokl_additions(2]; 
power  +=  gross,  weight  •  collective/(H_K2+coUective)  *125; 
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power  =  min  (MAX_HELJCOPTER_POWER,  power); 
power  =  max  (0.0,  power); 

if  (fueLlevel_empty  ()) 
power  =  0.0; 

/*  Calculate  die  torque  required  to  achieve  the  desired  orientation  */ 

/*  orientation  vector  is  (pitch  element,  roll  element,  yaw  element]  *! 

orient_vec[0]  =  H_KPR  •  -  cyclic_pitch  +  hover_h(dd_additions(0]; 
orient_vec(li  =  H_KPR  •  cyclic_roll  +  hover_hold_additionsIll; 

/••  element  =  current_yaw  (heading)  +  rudder  (pedals)  *  K  •*/ 
orient  vec[2]  =  kinematics_get_yaw  ()  +  sign(pedal)  •  pedal 
•  pedal ‘H.KY; 

res_ptr  =  moment.body; 
des_ptr  =  orient_vec; 

C_mat  =  kinematics_get_w_to_h  (vdi.kinematics); 

eulerfO]  =  atan2  (-gravity_dir_vector(Yl,  -gravity_dir_vector{Z]); 

eulerfl  j  =  -  atan2  (-gravity_dir_vector(X],  -gravity_dir_vector[Z]); 

euler(2]  =  kinematics_get_yaw  (); 

cur_ptr  =  euler; 


/*  First,  compute  the  angular  velocity  necessary  to  achieve  the  */ 

/*  desired  orientation  in  exactly  one  tick,  (delta  theta/ delta  T)  */ 

/*  Then  get  the  angular  acceleration  needed  to  get  to  that  velocity  */ 

/•  In  one  tick.*/ 
for  (i  =  X;  i  <=  Z;  -H-i) 

( 

vec_ptiii]  =  ((des_ptr(i]  -  cur_ptr(il)  /  DELTA_T  /  H_K1); 
angular  acceUi]  =  (vec_ptr{i]  -  angular  velocity_vector(i]) 

/  DELTA.T; 

res_ptrfi]  -  MOMENT  OF  INERTIA  X  *  angular  accel[i]; 

) 

res_ptr{X]  +=  lift_factor;  /*  this  should  add  some  torque  for  turns  */ 

/•  compute  force  vector  •/ 
res_ptr  =  foroe_body; 
curjjtr  =  velocity_vector; 
vec_ptr  =  euler; 

drag_ptr  =  drag_force;  /*  drag_body  or  drag_force  */ 

drag  ptrfXl  =  square(cur_ptr(X])  •  H_K8; 
dragjJtrfY)  =  square(cur_ptr(Yi)  *  H_K7; 
drag  ptrfZl  =  square(cur_ptr(zi)  •  H_K8; 

res_ptr(X)  =  (sin(vec_ptr(Y])  •  power)  -  (sign(cur_ptr(X])  *  drag_ptr(Xl); 
reS-PHY]  =  -(sin(vec_ptHX])  •  power)  -  (sign(cur_ptr[)n)  •  drag_ptrfY]); 
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res_ptr(Z]  =  C_nuit[2](21  •  power; 

res_ptrlZl  -=  sign(cur_ptrlZl)  *  drag4)trIZl; 

res_ptr[Z]  +=  lift_facton  /*  this  should  add  some  force  for  lift  •/ 

vec.add  (force_body,  ground.force^orce.body); 
vec.add  (fbrce_body,  gravity_force_body^orce_body); 
inteiact_with .grou^O; 

vec_add  (foroe_body,  force_ground_effect,  force_body); 
vec_add  (moment_body,  ground_torque,  moinent_body); 
send_to_dynainics_kinematics  (); 
vehicle  update  (); 

) 

/ . . . ****** . .  ' 

•  The  following  is  for  the  simplified  model  incorporating  the  stealth  * 

•  dynamics.  In  this  model,  the  cyclic  changes  the  desired  velocity  * 

#define  H_FWD_MUL  aero.stealthj  01 
#define  H  SIDE  MUL  aero_stealth[  1] 

#define  H  COLL.MUL  aero_stealth[  2] 

«define  MAX  TORQUE  aero_stealth[  3] 

#define  MAX_PORCE  aero_^th(  4] 

#dehne  MASS  aero.steahhl  5] 

#define  INERTIA  aero_steaId\(  6] 

#define  DEAD.ZONE  aerojstealthl  7] 

/*  use  for  gravity  frame  matrix  eliminate  all  pitch  and  roll 

•  start  with  identity,  substitute  cos  (yaw)  for  last  term. 

V 

static  T  MATRIX  level  =  {{1 A  0.0, 0.0), 

(0.0,1  A  0.0), 

(0.0, 0.0, 1.0)}; 


void  aerodyn_stealth  simul  () 

( 

VECTOR  desired_rot_vel; 

VECTOR  desired_lin_vel; 

REAL  adi_collective;  /*  collective  value  adjusted  for  dead  zone  and 
for  -1  to  1  range  */ 

adj_collective  =  (collective  -  0.5)  •  2.0;  /*  change  to  -1  to  1  */ 
if  (aerodyn.debug) 

tiined_printf  (”adj_collective  =  %3irvn",  adj_collective); 

if  (allow_takeof0 

{ 

if  (adj_collective  >  0.0) 
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{ 

allow  takeoff  =  FALSE; 

} 

else 

{ 

adi_collective  =  0.0; 

) 

) 

get_aircraft_kineinatic_state  0; 

comfnite_rotor_loads(); 

connpute_engine_lorque(); 

/•  update  desired  velocity  •/ 
desired_lin_veltZ]  =  adj_collective  *  adi_collective  * 
sign  (adj_collective )  *  H_COLL_MUL; 

if  <hover_hold_state  ==  ON) 

{  /•  no  linear  velocity  in  XX  only  pitch  •/ 
desired_lin_vel(Xl  =  desired_lin_vel[Y]  =  0.Q; 
desired_rot_vel[Xl  =  -cyclic_pitch  •  cyclic_pitch  *  sign(cyclic_pitch); 
desired.rot  velfYI  =  0.0; 

} 

else 

I 

if  flevel  view)/*  when  not  in  pitch  mode,  level  view  •/ 

{  ' 

vducle_set_orientation_matrix  Gevel);  /*  identity  matrix  */ 
vducle_set_orientation  (kinenutics_get_headin^)); 
level  view  =  FALSE; 

} 

desired  lin  veUXJ  =  cyclic_roll  *  cyclic_roll  •  sign  (cyclic_roll) 
•H_Sn>E_MUL; 

desired  lin  vellY]  =  cyclic_pitch  •  cydic_pitch  •  sign  (cyclic_pitch) 
•H  FWb.MUL; 


desired  rot  velJX]  =  desired_rot_velIY]  =  0.0; 

)  "  “ 

#ifdef  notdef 

desired.lin  veUXJ  =  cyclic.roU  *  cycUc.roU  *  sign  (cyclic.roll) 
•H_SroE_MUL; 

desired_lin_vel[Y]  =  cyclic_pitch  •  cydic_pitch  •  sign  (cyclic_pitch) 
•H_FWD_MUL; 

desired_rot_vel(XI  =  desired_iot_vel[Y]  =  0,0; 

#endif 

desired_rot_vel[Z]  =  pedal  *  pedal  •  sign(pedal); 

/•  oontroller.forces  •/ 


-B-27- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  B  -  Source  Code  Listing  for  rwa_aerodyn.c 

force  bodylX]  =  (desired_lin_veI[X]  -  velodty.vectorlX]) 
•MASS/DELTA_T; 

force  bodyJY]  =  (desired  lin_vel[Y]  -  velocity_vectorfYl) 
•MASS/DELTA_T; 

force_body[Z]  =  (desired  iin_veUZ]  -  velocity_vector(Zl) 
•MASS/DELTA_T; 

force_body(Xl  =  min  (MAX_PORCE,  fbrce_body{X]); 
foroe.bodyJY]  =  min  (MAX_PORCE,  force_bod)^Yl); 
force_body[Z]  =  min  (MAX_FORCE,  fbrce_body(Zl); 

foroe_bodyIX]  =  max  (-MAX_FORCE,  force_bodyIX]); 
force_bodylYl  =  max  (-MAX_PORCE,  force_bod)rlY]); 
force_body[Z]  =  max  (-MAX_PORCE,  force_body(Z]); 


/•  controller_torques  */ 

moment  body[X]  =  (desired_rot_vel[Xl  -  angular_velocity_vector[X]) 

•  INERTTA/DELTA.T; 

nx>ment_body{Yl  =  (desired_rot_vel(Y]  -  angular_velocity_vectorIY]) 

•  INERTIA/DELTA.T; 

moment  bodyJZ]  =  (desired_rot_vel[Z]  -  ang;ular_velocity_vector(Z)) 

•  INERTTA/DELTA.T; 

moment_body(X]  =  min  (MAX_TORQUE,  nK)ment_body[X]); 
moment_bodyiY]  =  min  (MAX_TORQUE,  moment_bodyrY]); 
moment_bod)r{zj  =  min  (MAX_TORQUE,  moment.bodyjz}); 

moment.bodyfX]  *  max  (-MAXJTORQUE,  moment_bodylXl); 
moment.bodyJY]  =  max  (-MAXJTORQUE,  moment_body{Y]); 
moment.bodyjzj  =  max  (-MAX.  TORQUE,  moment_body(zj); 

interact_with_groundO; 

vec_add  (force_body,  ground_force,force_body); 
vec_add  (foroe_body,  gravity Jorce_bodyJorce_body); 
vec_add  (fbrce_body,  force _ground_effect,  force_body); 

send_to_dynamics_kinematics  0; 
vehicle  update  (); 

) 


/****" . . 

*  for  tweaking  purposes,  use  parameter  file  for  constants 

. 

aerodyn_read_simple_constants  (fn) 
char  *fn; 

( 

char  *strtok  (); 

FILE  •fp; 
char  s{80]; 
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if  ((fp  =  POPEN  (fn,  "r"))  ==  NULL) 

( 

printf  ("no  tweakable  constants  file;  using  defaults\n”,  fn); 
return  (-1); 

) 

else 

printf  ("Reading  tweakable  constants  file:  %s\n",  fn); 

while  (PGETS  (s,  80,  fp)  !=  NULL) 

{ 

char’str; 

switch  (s(0])  /*  check  for  comments  or  blank  lines  */ 

( 

case 
case": 
case  '\n': 
case  '\t': 
continue; 

) 

str  =  strtok(s,"\t"); 

if  (stremp  (str,  "H  Kl")  ==  0) 

{ 

sscanf  (strtok  (0, "  \t"),  "%lf’,  &H_K1); 
continue; 


if  (stremp  (str,  "H  K2")==0) 

{ 

sscanf  (strtok  (0, "  \t"),  "%lf ’,  &H_K2); 
continue; 


if  (stremp  (str,  "H  K7")  =  0) 

{ 

sscanf  (strtok  (0, "  \t"),  "%ir,  &H_K7); 
continue; 


if  (stremp  (str,  "H_K8")  ==  0) 

{ 

sscanf  (strtok  (0, "  \t"),  "%r,  &H_IC8); 
continue; 


if  (stremp  (str,  "H_KP")  ==  0) 

I 

sscanf  (strtok  (0, "  \t"),  "%lf',  &H_ICP); 
continue; 

) 
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if  (strcmp  (str,  "H_KPR")  ==  0) 

I 

sscanf  (strtok  (0, "  \t”),  "%lf &H_KPR); 
continue; 

1 

if  (strcmp  (str,  "H_KY")  ==  0) 

sscanf  (strtok  (0, "  \t"),  ••%If &H_KY); 
continue; 

1 

if  (strcmp  (str,  "H_KH")  ==  0) 

{ 

sscanf  (strtok  (0,  ”  \t"),  ',  &H_KH); 

continue; 

} 

if  (strcmp  (str,  "H_FWD_MUL")  ==  0) 

{ 

sscanf  (strtok  (0, "  Xt"),  "%lf &H_FWD_MUL); 
continue; 

) 

if  (strcmp  (str,  "H  CX)LL_MUL")  =  0) 

( 

sscanf  (strtok  (0, "  Xt"),  "%r,  &H_COLL_MUL); 
continue; 

) 

if  (strcmp  (str,  "H  CHH'')==0) 

{ 

sscanf  (strtok  (0, "  Xt"),  "%lf ',  &H_CHH); 
continue; 

) 

if  (strcmp  (str,  "H_CL")  ==  0) 

{ 

sscanf  (strtok  (0, "  Xt"),  "%lf ',  &H_CL); 
continue; 

) 

if  (strcmp  (str,  "MAX  PORCT")  ==  0) 

{ 

sscanf  (strtok  (0, "  Xt"),  "%lf ',  &MAX_PORCE); 
continue; 

) 

if  (strcmp  (str,  "MAX  TORQUE")  ==  0) 

{ 

sscanf  (strtok  (0, "  Xt"),  "%lf ’,  &MAX_TORQUE); 

f 


-B-ao- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  B  -  Source  Code  T-<«ring  for  rwa_aerodyn.c 


continue; 

1 

if  (strcnrp  (str,  "MASS")  ==  0) 

{ 

sscanf  (strtok  (0, "  Xt"),  "%If &MASS); 
continue; 

) 

if  (stranp  (str,  ’INERTIA")  ==  0) 

{ 

sscanf  (strtok  (0, "  \t"),  "%lf &INERTIA); 
continue; 

) 

if  (strcmp  (str,  "H_SIDE_MUL")  ==  0) 

{ 

sscanf  (strtok  (0, "  \t"),  "%lf &H_SIDE_MIJL); 
continue; 

) 

if  (strcmp  (str,  "DEAD  ZONE")  =  0) 

{ 

sscanf  (strtok  (0, "  \t"),  "%ir,  &DEAD_ZONE); 
continue; 

1 

/•  if  got  here  —  mistake  •/ 

printf  ("ERROR:  Unknown  constant  %s  in  %s\n",  str,  fn); 

) 

FCLOSE  (fp); 

printf  ("done  reading  constants  fileXn"); 

/•  aerodyn_dump_simple_constants  Of/ 
return  (1); 

) 

aerodyn  dump  controljnputs  () 

{ 

printf  ("collective  =  %Zlf\tcydic_ioll  =  %.21f\tcyclic_pitch  =  %Zlf\n", 
collective,  cyclic_roll,  cydic_pitch); 
printf  ("pedal  =  %.2If\n",  pedal); 
aerodyn.debug  =  aerodyn_debug  ?  0 : 1; 
printf  ("aerodyn_debug  is  %s\n",  aerodyn_debug  ?  "on" :  "off’); 

) 

aerodyn  dump  simplejconstants  () 

{ 

printf  ("Aerodyn  simple  constants:\n"); 
printf  ("\tH_Kl:\t%.21f\n",  H_K1); 
printf  ("\tH  K2:\t%.21f\n",  H_K2); 
printf  ("\tH  K7:\t%.21f\n",  H_K7); 
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printfrXtH  K8;\t%.21An",H_K8); 

printf  ("\tH  KP:\t%21f\n",  H_KP); 

printf(”\tH  KPR:\t%.21f\n",  H_KPR); 

printf  ("\tH  KY:\t%.21f\n’',  H_KY); 

printf  r\tH  KH:\t%.21f\n",  H_KH); 

printf  ("\tH  FWD_MUL:\t%.21f\n",  H_FWD_MUL); 

printf  (”\tH  SIDE_MUL:\t%ilf\n",  H_SIDE_MUL); 

printf  (”\tH_COLL_MUL:\t%.21f\n",  H_COLL_MUL); 

printf  r\tH_CHH:\t%.21f\n",  H_CHH); 

printf  r\tH  CL:\t%.21f\n",  H_CL); 

printf  r\tMAX_FORCE:\t%.21f\n",  MAX_FORCE); 

printf  ("\tMAX_TORQUE:\t%.21f\n",  MAX_TORQUE); 

printf  r\tMASS;\t%.21f\n",  MASS); 

printf  ("\tINERTIA:\t%.21f\n",  INERTIA); 

printf  ("XtDEAD  ZONE:\t%.21f\n'',  DEAD.ZOIE); 

1 

set_selected_model  (model) 
int  model; 

{ 

switch  (model) 

{ 

case  CX)MPLEX_MODEL: 

printf  ("switching  to  complex  model,  logarithmic  coUectiveXn”); 
funnyjittle.kludge  =  1;/*  logarithmic  collective  */ 
selected.model  s  modd; 
break; 

caseSIMPLE.MODEL: 

printf  ("switching  to  simple  model,  linear  collectiveXn"); 
funny_little_kludge  =  0;/*  linear  collective  •/ 
seiected_model  =  modd; 
break; 

case  STEALTH_MODEL: 

printf  ("switching  to  stealth  model,  linear  coUectiveNn"); 
funny_little_kludge  *  0;/*  linear  collective  •/ 
selected.model  =  modd; 
break; 
default; 

printf  ("invalid  selected  model  %d\n”,  nxxiel); 
printf  ("using  default  complex  modelXn”); 
selected_model  =  COMPLEX_MODEL; 
break; 

) 

) 


get  selected  model  () 

{ 

return  (selected_model); 

) 
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indicate_selected_inodel  (model) 
int  model; 

{ 

switch  (iirodel) 

{ 

case  CX)MPLEX_MODEL: 
printf  ("using  complex  modelXn”); 
break; 

case  SIMPLE_MODEL: 
printf  ("using  simple  modelXn"); 
break; 

case  STEALTH.MODEL: 
printf  ("using  stealth  modelXn"); 
allow_takeoff  =  TRUE; 
break; 
default: 

printf  ("invalid  selected  model  %d\n",  nrodel); 
printf  ("using  default  complex  model\n"); 
break; 

) 

} 

set_takeoff_status  (status) 
int  status; 

{ 

allow  takeoff  s  status; 

) 


orll  15> 
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I*  $Header :  /a3/adst-cm/RWA/3iinnet/vehicle/rwa/src/RCS/rwa_engine.c, v 

1.1  1992/1 

0/07  19:00:23  cm-adst  Exp  $  */ 

/* 

*  $Log:  rwa_engine.c, V  $ 

*  Revision  1.1  1992/10/07  19:00:23  cm-adst 

*  Initial  Version 

A 

*/ 

static  char  RCS_ID[]  -  "$Header:  /a3/adst- 

cm/RWA/ s imnet / vehicle / rwa /arc/ RCS / rwa_ 

engine. c,v  1.1  1992/10/07  19:00:23  cm-adst  Exp  $"; 

ititit’kit’k 

it 

*  Revisions : 

* 

*  Version  Date  Author  Title  SP/CR 


* 

NuiT±>er 

* 

Version 

Date 

Author 

Title 

* 

* 

1.2 

10/09/92 

R.  Branson 

Data  File  Initiali¬ 

* 

zation 

* 

1.3 

10/16/92 

R.  Branson 

Data  filenames  changed 

* 

to  eight  characters 

* 

1.4 

10/30/92 

R.  Branson 

Added  pathname  to  data 

*  directory 

* 

***** / 

/*********************************************************************** 

****** 

* 

*  SP/CR  No.  Description  of  Modification 


*  Hard  coded  defines  changed  to  array  elements . 

*  Engine  data  array  added. 

*  Engine  initialization  data  array  added. 

*  Engine  status  data  array  added. 

*  Added  file  for  engine  data,  engine 
initialization 

*  data,  and  engine  status  data  to  the 
"engine_init" 

*  function 

* 

*  Added  "/sironet/data/"  to  each  data  file 

pathname . 

* 

iiifk1iii1iitit1iir1rir1r**ifkir****iHfk****ifkim****if********************************** 
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*  * 

*  FILE:  rwa_engine.c  * 

*  AUTHOR:  James  Chung  * 

*  MAINTAINER:  James  Chung  * 

*  HISTORY:  4/19/89  james:  Creation  * 

*  ★ 

*  * 

*  Copyright  (c)  1989  BBN  Systems  and  Technologies  Corporation  * 

*  All  rights  reserved.  * 

*  * 

*  Interim  engine  model  for  the  generic  rotary-wing  aircraft  * 

*  with  power  characteristics  similar  to  the  General  * 

*  T700-GE-701  turboshaft  engine.  The  T700  is  rated  at  a  * 

*  maximum  continuous  power  of  1510  shp  at  sea-level.  * 

*  Two  (2)  T700s  power  the  AH-64  Apache  attack  helicopter.  * 


finclude  "stdio.h" 
tinclude  "math.h" 

finclude  "sim_dfns.h" 
finclude  "aim_macros .h" 
finclude  "sim_types . h" 
finclude  "libsound.h" 
finclude  "rwa_soun_dfn.h" 
finclude  "rwa_roeter .h* 
finclude  "rwa_cntrl.h" 
finclude  "libmun.h" 
finclude  "failure .h" 
finclude  "libfail.h" 

/*  Once  the  engine  or  transmission  has  been  damaged,  there  is  a  chance 
that 

the  engine/transmission  will  seize  due  to  too  many  particle  fragments 
accumulating  in  the  respective  oil  system.  These  are  "secondary" 
events . 

12-10-90  pjm  */ 

fdefine  DO_CFAIL  TRUE  /*  do  combat  damage  simulation  */ 

f define  D0_SFA1L  TRUE  /*  do  stochastic  failure  simulation  */ 

static  REAL  engine_data [20]  >  ( 


1030.55, 

0.05, 

0.05, 

1031.6, 

25.0 

1.2, 

1200.0, 

0.16438, 

2.130, 

34.0 

7.0, 

100.0, 

153.8461539 

,  0.0, 

0.0 

0.0, 

)  ; 

static  REAL  engine 

0.0,  0.0, 

_init  data [10]  -  { 

0.0, 

0.0 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 

1.0, 

)  ; 

0.0, 

0.0, 

0.0, 

0.0 
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static  int  engine_stat_data [10]  -  { 

0,  0,  1, 

0,  0,  0, 

)  ; 


1,  2, 

0,  0 


♦define  GOVERNOR_ENGINE_SPEED_SETTING 
♦define  GOVERNOR_P_GAIN 
♦define  GOVERNOR_I_GAIN 
♦define  MAX_ENGINE_TORQUE 
♦define  MIN_ENGINE_LOAD_TORQUE 
♦define  MAX_ENGINE_PERCENT_POWER 
♦define  ENGINE_TORQUE_INTERCEPT 
♦define  ENGINE_TORQUE_SLOPE 
♦define  NOSE_GEARBOX_RATIO 
♦define  MAIN_ROTOR_GEAR_RATIO 
♦define  TAIL_ROTOR_GEAR_RATIO 
♦define  POWERTRAIN_INERTIA 
♦define  MAX  FUELFLOW 


engine, 

engine, 

engine, 

engine, 

engine, 

engine 

engine 

engine, 

engine, 

engine, 

engine, 

engine 

engine 


data  [ 
data  ( 
_data  [ 
data  [ 
data  [ 
data  [ 
data  [ 
data  [ 
data  [ 
data  [ 
data  [10] 
^data [11] 
data  [12] 


0] 

1] 

2] 

3] 

4] 

5] 

6] 

7] 

8] 
9] 


/*  (seconds /tick)  /  (seconds/hour)  -  (hours/tick)  */ 
♦define  HOURS_PER_TICK  (  DELTA_T  /  3600.0  ) 

Static  REAL  hours_of_f light; 

static  int  minutes_of_f light,  old_nu.nutes_of_f light; 
static  BOOLEAN  engine_is_damaged,  transinission_is_damaged; 


/******  engine  noise  stuff  ♦****/ 

♦define  ORIGINAL  0 

♦define  BOTHJDISABLED  1 

♦define  CHANGE_ROTOR  2 

♦define  CHANGE_ENGINE  3 

♦define  CHANGE_BOTH  4 

static  int  engine_sound_type  ■  CHANGE_BOTH; 

static  int  engine_oscillation [2] ,  rotor_oscillation [2] ; 


♦define  MIN_ROTOR_SOUND 
♦define  MAX_ROTOR _SOUND 
♦define  ROTOR_SOUrro_RANGE 
♦define  MIN_TURBINE_SOUND 
♦define  MAX_TURBINE_SOUND 
♦define  TURBINE  SOUND  RANGE 


105 

120 

(MAX_ROTOR_SOUND  -  MIN_ROTOR_SOUND) 

95 

126 

(MAX  TURBINE  SOUND  -  MIN  TURBINE_SOUND) 


Static  REAL  turbine_speed; 

static  REAL  engine_speed;  /*  Nose  gearbox  output  shaft  */ 

static  REAL  engine_load_torque; 

static  REAL  engine_percent_torque; 

static  REAL  engine_drive_torque; 

static  REAL  inain_rotor_shaft_speed; 

static  REAL  inain_rotor_drive_torque; 

static  REAL  tail_rotor_shaft_speed; 

static  REAL  tail_rotor_drive_torque; 

static  REAL  powertrain_percent_shaft_speed; 

static  REAL  last_percent_shaft_speed; 

static  REAL  last_percent_torque; 

static  REAL  fuel_flow; 

static  REAL  engine__power; 


% 
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static  REAL  integrator_gain; 
static  REAL  govjp_gain; 
static  REAL  gov_i_gain; 

static  int  nuinber_of_enginea;  /*  Working  */ 
static  int  engine_status; 

/*  Flag  used  to  determine  if  the  engine  is  starting.  Sounds  for  the 
engine 

and  rotors  are  more  "realistic."  Starting  engine  speed  is  0  instead 
of 

GOVERNOR_ENGINE_SPEED_SETTING,  and  since  engine_power  then  maxes  out 
(causes  "torque"  to  flash)  a  check  is  done  and  temporarily  forces  the 
torque  percentage  to  be  equal  to  1. 

11-8-89  Paul  J.  Metzger 

*/ 

static  int  atarting_engine; 

void  engine_aimul  (main_rotor_load,  tail_rotor_load,  altitude) 

REAL  main_rotor_load,  tail_rotor_load,  altitude; 

( 

REAL  tail_rotor_engine_load; 

REAL  main_rotor_engine_load; 

REAL  temp_percent; 

int  teiiqi_aound; 

main_rotor_engine_load  -  main_rotor_load  /  MA1N_R0T0R_GEAR_RATI0; 
tail_rotor_engine_load  ■  tail_rotor_load  /  TAIL_ROTOR_GEAR_RATIO; 

engine__load__torque  "  main_rotor_engine_load  + 
tail_rotor_engine_load; 

if  (engine_load_torque  <  MIN_ENGINE_LOAD_TORQUE) 
engine_load_torque  -  MIN_ENGINE_LOAD_TORQUE; 

engine_power  ■  gov__p_gain  * 

(GOVERNOR_ENGINE_SPEED_SETTING  -  engine_speed) ; 

if  (engine_status  ~~  WORKING) 

{ 

integrator_gain  +■  gov_i_gain  * 

(GOVERNOR_ENGINE_SPEED_SETTING  -  englne_speed) ; 
if  (integrator_gain  >  0.5) 
integrator_gain  -  0.5; 
else  if  {integrator_gain  <  -0.5) 
integrator_gain  -  -0.5; 

engine_power  +-  integrator_gain; 

) 

else  /*  Damaged  */ 

{ 

integrator_gain  -  0.0; 
if  (engine_j>ower  >  0.7) 
engine_power  ■  0.7; 

} 
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if  (engine_power  >  MAX_ENGINE_PERCENT_POWER) 
engine_power  -  MAX_ENGINE_PERCENT_POWER; 

if  (engine__power  <  0.0) 
engine_power  “  0.0; 

if  (fuel_level_en?>ty  ())  /*  Out  of  gas  */ 

{ 

engine_power  -  0.0; 
engine_speed  *■  0.0; 


engine  drive_torque  -  engine_power  *  nuinber_of_engines  * 

(ENGINE_TORQUE_INTERCEPT  -  ENGINE_T0RQUE_S1.0PE  *  engine_speed) ; 

enqine_  percent _ torgue  “  engine_drive _ ^torque  / 

(MAX_ENGINE_TORQUE  *  nuinber__of_engines ) ; 

if  (engine_statua  WORKING) 

engine_speed  +■  (engine_drive_torque  -  engine_load_torque) 

/  POWERTRAIN_INERTIA; 

if  (engine_speed  <  0.0) 
engine_speed  ••  0.0; 

turbine_speed  •  engine_sp€!ed  *  NOSE_GEARBOX_RATIO; 
inain_rotor_shaft_speed  ■  engine^speed  /  MAIN_ROTOR_GEAR_RATIO; 
tail_rotor  shaft  speed  “  engine^speed  /  TAIL_ROTOR_GEAR_RATIO; 
powertrain_percent_shaft^speed  •  engine^speed  / 
GOVERNOR_ENGINE_SPEED_SETTING; 

tail_rotor_drive_torque  •»  tail_rotor_load;  /*  Always  have  tail 
rotor  */ 

niain_rotor_drive_torque  (engine_drive_torque  - 
tail_rotor_engine_load) 

*  MAIN_ROTOR_GEAR_RATIO; 
if  {inain_rotor_drive_torque  <  0.0) 
iaain_rot or_drive_torque  ■  0.0; 

fuel_flow  “  engine  percent  torque  *  MAX_FUELFLOW;  • 

if  (engine_status  —  BROKEN)/*  crippled  condition  */ 

{ 

sound  stop_cont_sound  (SOUND_OF_STOP_ENGINE, 
S0UND_0F_VARY~ENGINE) ; 

sound  stop_cont _ sound  (SOUND_OF _ STOP_ROTOR, 

SOUND_OF_VARY~ROTOR) ; 

fuel_flow  *-  50.0;  /*  fuel  lea)c  */ 

) 

if  {starting_engine) 

if  (engine_percent_torq[ue  ~  .01  <  .0001)  /*  within  a 

delta  */ 

starting_engine  -  FALSE; 
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else 


engine_percent_torque  -  .01; 


fuel_used_by_engine  (fuel_flow  /  3600.0  *  DELTA_T) ; 

ineter_torque_3et  {engine_percent_torque) ; 
meter_rpni_set  (powertrain_percent_shaft_speed) ; 


hour8_of_flight  +-  HOURS_PER_TICK; 
minutes_of_f light  “  (int)  (hour3_of_flight  *  60) ; 

#if  DO_SFAIL 

if  (minute3_of_f light  >  old_minutes_of_f light) 

{ 

sfail_event_occurred  (SFAIIi_EVENT_MlLEAGE)  ; 
if  (engine_is_damaged) 

sfail_event_occurred  (SFAII-_SECONDARY_EVENT_ENGINE) ; 
if  (tran3mission_i3_dainaged) 

3fail_event_occurred  (SFAIL_SECONDARy_EVENT_TRANSMISSION) ; 
old_iiiinute3_of_f light  -  niinutes_of_f light; 

) 

#endif 


if 

( 


( !  f  uel_level_einpty  ( ) ) 

switch  (engine  sound_type) 

( 

case  CHANGE_ENG1NE : 

if  (abs  (powertrain_percent_shaft_speed 

-  last_percent  shaft_speed)  >  0.025) 

{ 


/*  rotor  sounds  depend  on  RPMs 
*  (powertrain_percent_shaft_speed)  */ 
tenip__percent  >  max  (0.01, 
powertrain_percent_shaft_speed) ; 

sound_ma)ce_cont_sound  ( SOUND_OF_START_ROTOR, 
SOUND  OF  VARY  ROTOR 


SOUND  OF  STOP  ROTOR, 


ten5)_percent)  ; 

last_percent_shaft_speed  * 
po we  rt  ra in_p€ rcen t_sha  f t_speed ; 

) 


0.025) 


if  (abs  (engine_percent_torque  -  last_percent_torque) 


I 

/*  engine  sounds  depend  on  torque 
(engine_percent_torque)  */ 

tenp_percent  *  max  (0.01,  engine__percent_torque)  ; 
sound_maJce_cont_sound  ( SOUND_OF_START_ENGINE , 
SOUND_OF_VARY_ENGI 
NE, 


temp_percent) ; 


SOUND  OF  STOP  ENGINE, 


> 
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last_percent_torque  -  engine_percent_torc[ue; 

) 

break; 

case  ORIGINAL: 

if  (abs  (powertrain_percent_shaft_speed 

-  last_percent_shaft_speed)  >  0.025) 

{ 

/*  rotor  sounds  depend  on  RPMS 
*  (powettrain_percent_shaft_speed)  */ 
teinp_percent  “  max  (0.01/ 
powertrain_percent_shaft_speed) ; 

sound_make_cont_sound  ( SOUND_OF_START_ROTOR, 
SOtJND_OF_VARy_ROTOR 

SOUNr>_OF_STOP_ROTOR, 

tenp_percent) ; 

sound_inake_cont _ sound  ( SOUND_OF _ START_ENGINE , 

SOUND_OF_VARY_ENGI 

NE, 

SOUND_OF_S  TOP_ENG INE , 

ten?j_percent) ; 

last_percent_shaft_speed  “ 
powertrain_percent_shaft  speed; 

1 

break; 

case  CHANGE_BOTH: 

/*  Try  the  following,  as  per  Perc’s  directions:  vary  both 

the 

*  rotor  and  engine  with  torque,  but  have  the  rotor  range  be 

from 

*  105  to  120,  and  the  turbine  range  from  95  to  126. 


torque  is 


*  The  rotor  sound  range  is  15  points  (120-105),  so  the  % 

*  multiplied  by  15,  then  added  to  an  offset  of  105. 


*  The  turbine  sound  range  is  31  points  (126-95) ,  so  the  % 

torque  i 

*  multiplied  by  31,  then  added  to  ar  offset  of  105. 


0.025) 


*  11-17-90  PJM  */ 

if  (abs  (engine_percent_torque  -  last_percent_torque)  > 


/*  both  sounds  depend  on  torque  */ 
temp_sound  -  (int)  (engine_percent_torque  * 
ROTOR_SOUND_RANGE ) 

MlN_ROTOR_SOUND ; 

if  (tertf>_sound  >  MAX_ROTOR_SOUND) 
temp_^sound  MAX_ROTOR_SOUND ; 

/*  We  check  to  see  if  the  sounds  are  oscillating.  This 
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/*  event  occurs  while  at  the  extreme  torque  edges  of  */ 
/*  the  hover  hold  mode,  when  we're  trying  to  break  *! 

/*  hold.  2-15-91  PJM  */ 


terop_sound)  ; 


if  (teiq3_sound  !-  rotor_oacillation [1] ) 

sound_make_arg_sound  ( SOUND_OF_VARY_ROTOR, 


rotor_oscillation [1]  -  rotor_oacillation [0] ; 
rotor_oscillation [0]  “  teir?>_sound; 


temp_aound  -  (int)  (engine_percent_torque  * 
TURBINE_SOUND_RANGE)  +  MIN_TURBINE_SOUND; 
if  (temp_aound  >  MAXjrURBINE_SOUND) 
ten¥'_30und  -  MAX_TURBINE_SOUND; 


tenp_sound)  ; 


if  (tenp_sound  !-  engine_oscillation [1] ) 

a  ound_make_a  rg_s  ound  ( SOUND_OF_VARY_ENG INE , 

engine_oacillation[l]  -  engine_oscillation [0] ; 
engine_oscillation [0]  -  ten^_sound; 


laat_percent_torque  ■  engine_percent_torque; 

) 

break; 


case  CHANGE_ROTOR: 

if  (abs  ( engine  jper cent  torque  -  lastpercent  torque)  > 

0.025) 

{ 

/*  rotor  sounds  depend  on  torque  */ 
ten^_sound  «■  (int)  (engine_percent_torque  * 
ROTOR_SOUND_RANGE ) 

MIN_ROTOR_SOUND ; 

if  (tenp_sound  >  MAX_ROTOR_SOUND) 
ten?J_sound  -  MAX_ROTOR_SOUND; 
sound_roake_arg_30und  {SOUND_OF_VARY_ROTOR,  temp_sound) ; 
sound_st op_cont_sound  { SOUND_OF_STOP_ENGINE , 

SOUND_OF_VARY_ENGINE) ; 

last_percent_torque  ■  engine_percent_torque; 

) 

break; 


case  BOTH_DISABLEO: 

sound_st  op_cont_sound  { SOUND_OF_STOP_ENGINE , 
SOUND_OF_VARY_ENGINE) ; 

sound_stop_cont_sound  ( SOUND_OF_STOP_ROTOR, 
SOUND_OF_VARY_ROTOR) ; 

break ; 

) 

) 


) 

REAL  engine_g€t_rotor_percent_shaf t_speed  ( ) 
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return  (powertrain_percent_ahaft_3peed) ; 

) 

void  engine_deunage_engine_oil  {) 

#if  DO_CFAIL 

controls_start_failure_lanp_flashing  (MASTER_CAUT10N) ; 
controls_start_failure_lan^_fla3hing  (ENGINE_FAILURE) ; 
fendif 

engine_is_damaged  -  TRUE; 

) 

void  engine_repair_engine_oil  () 

{ 

#if  LJ_CFAIL 

oontrol3_f ailure_laitp_of f  (ENGINE_FAILURE) ; 
engine_i3_damaged  -  FALSE; 
fendif 
) 

void  engine_break_engine  ( ) 

{ 

engine_3tatu3  “  BROKEN; 
engine_speed  -  0.0; 
nuinber_of_engine3  ■  1; 

) 

void  engine_repair_engine  ( ) 

{ 

engine_repair_engine_oil  (); 
engine_status  -  WORKING; 
nviinber_of_engine3  •■2; 

) 

void  engine_daniage_transmission_£ilter  () 

{ 

♦if  DO_SFAIL 

control3_3tart_failure_lan^_flashing  (HASTER_CAUTION) ; 
controls_3tart_failure__lan^_f lashing  (TRANSMISSION_FAILURE) ; 
transmission_i3_dainaged  ■  TRUE; 
fendif 
) 

void  engine_repair_transmis3ion_£ilter  () 

{ 

fif  DO_SFAIL 

controls_failure_lanqp_off  (TRANSMISSION_FAILURE) ; 
transmi33ion_is_dainaged  ■*  FALSE; 
fendif 
) 

void  engine_break_tran3mis3ion  () 

i 

fif  DO  SFAIL 
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engine_break_engine  ();  /*  engine  has  seized  */ 

#endif 
) 

void  engine_repair_transniission  () 

{ 

#if  D0_SFA1L 

engine_repair_transmission_f ilter  () ; 
engine_repair_engine  ( ) ; 
fendif 
) 


void  engine_init  ( ) 

int  i; 

int  data_init ; 

float  data_tnp; 
char  descript [ €4] ; 

FILE  *fp; 

/*  DEFAULT  DATA  FOR  rwa_engine.c  READ  FROM  FILE 
*/ 

fp  “  fopen ("/siinnet/data/rwa_engn.d", "r") ; 
if  (fp— NULL)  { 

f print f (stderr,  "Cannot  open 
/siinnet/data/rwa_engn.d\n")  ; 

exit  0  ; 

) 

rewind (fp) ; 

/*  Read  array  data  */ 

i-0; 

while (fscanf (fp, "%f",  &data_tnp)  !*  EOF) ( 
engine_data  [i]  -  data_tinp; 
fgets (descript,  64,  fp) ; 

/*  printf ("engine_data (%3d)  is%11.3f  %s",  i, 

engine_data [i] , 

descript) ; 

*/ 

++i; 

) 

f close (fp) ; 

/*  END  DEFAULT  DATA  FOR  rwa_engine.c  READ  FROM  FILE 
*/ 

/*  DEFAULT  INITIALIZATION  DATA  FOR  rwa_engine.c  READ  FROM  FILE 
*! 

fp  -  fopen  ("/8iinnet/data/rw_en_in.d",  "r")  ; 
if  (fp«NULL)  { 

fprintf (stderr,  "Cannot  open 
/simnet/data/rw  en  in.d\n"); 
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exit ( ) ; 

) 

rewind (fp) ; 

/*  Read  array  data  */ 

i-0; 


while  (fscanf  <fp,  "%f"»  Sdata_titp)  !-  EOF)  ( 

engine_init_data  ti]  "  data_tn?>; 
fgets (descript,  64,  fp) ; 


*/ 


print f ("engine_init_data (% 3d)  is%11.3f  %s' 
engine_init_data [i] ,  descript) ; 

++i; 


i. 


f close (£p) ; 

/*  END  DEFAULT  INITIALIZATION  DATA  FOR  rwa_engine.C  READ  FROM  FILE 
*/ 

/*  DEFAULT  STATUS  DATA  FOR  rwa_engine.c  READ  FROM  FILE 
*/ 

£p  -  fopen  ("/siinnet/data/rw_en_st.d",  "r") ; 
i£(fp— NULL)(  ~ 

fprintf (stderr,  "Cannot  open 
/siinnet/data/rw_en_st  .d\n")  ; 

exit ( ) ; 

) 

rewind (£p) ; 

/*  Read  array  data  */ 

i-0; 


while (fscanf (£p, "%d",  «data_init)  !-  EOF) ( 
engine_stat_data [i]  -  data_init; 
fgets (descript,  64,  fp) ; 

/*  printf ("engine_stat_data (%3d)  is%lld  %s",  i, 

engine_stat  data(i],  descript); 

*/ 

++i; 

) 


£close(£p); 

/*  END  DEFAULT  STATUS  DATA  FOR  rwa_engine.C  READ  FROM  FILE 


gov_p_gain  - 
gov_i_gain  - 
engine_power  - 
engine_percent_torque 
engine_speed  - 
integrator_gain  - 


GOVERNOR_P_GAIN ; 
GOVERNOR_I_GAIN ; 
engine_init_data [  0 ] 
engine_init_data [  1] 
engine_init_data [  2] 
engine_init_data [  3] 
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last_percent_shaft_speed 
lastjpercent_torque  - 
hours_of_flight  “ 
minutes_of_flight  - 
old_minutes_of_f light  - 
engine_status  - 
starting_engine 
nuinber_of_engines  ■ 
engine_is_dainaged  ■ 
transmission_is_dainaged  ■ 


engine_init_data t  4] 
engine_init_data [  5] 
engine_init_data [  6] 
ongine_stat_data [  0] 
engine_stat_data I  1] 
engine_stat_data [  2] 
engine_stat_data [  3 ] 
engine_stat_data [  4] 
engine_stat_data [  5] 
engine_stat_data t  6] 


#if  DO_CFAIL 

£ail_init_failure  (motiveOilLeak,  engine_dainage_engine_oil, 
engine_repair_engine_oil,  NO_SELF_REPAIR, 

noncritKill) ; 

fail_init_failure  (motiveEngineMa jor,  engine_break_engine, 

engine_repair_engine ,  NO_SELF_REP AIR, 

mobilityKill) ; 
tendif 


#if  DO_SFAIL 

£ail_init_f allure  (motiveTransFluldFilter, 
engine_dainage_t  ransmisa  ion_£  liter, 
englne_repa 1 r  t ransmls s lon_£ liter, 

~  NO_SELF_REPAIR,  noncritKill) ; 

£ail_init_£ailure  (motlveTransmisslonMa jor, 
englne_break__t  ransmisa  ion , 

engine_repair_txansmission,  KO_SELF_KEPAIR, 

mobilityKill) ; 
fendif 
) 

void  engine_debug_print  ( ) 

printf  ("rpm  «  %£\n  rps  “  %£\n  ps  ■■  %£\n  etq  ■  %£\n  mrt  -  %£\n", 
powertrain_percent_sha£t_speed,  engine_speed, 
engine_power,  engine_drive_torque,  main_rotor_drive_torcpie) ; 

) 

REAL  engine_get_speed  ( ) 

{ 

return  (engine_speed) ; 

) 


void  engine_toggle_aound  () 

{ 

if  ( (engine_sound_type  -  1)  <  ORIGINAL) 
engine_sound_type  ■  CHANGE_BOTH; 

else 

engine_sound__type — ; 


switch  (engine_sound_type) 
case  ORIGINAL: 

printf  ("Rotor:  RPM  Engine:  RPM\n"); 
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) 


break; 

case  CHANGE_ROTOR: 
printf  ("Rotor: 
break; 

case  CHANGE_ENGINE : 
printf  ("Rotor; 
break ; 

case  CHANGE_BOTH: 
printf  ("Rotor: 
break; 

case  BOTH_DISABLED: 
printf  ("Rotor: 
break; 

) 


TORQUE  Engine:  DISABLED\n")  ; 

RRM  Engine:  TORQUE\n") ; 

TORQUE  Engine:  TORQUE\n") ; 

DISABLED  Engine:  DISABLED\n") ; 


REAL  engine_get_hours_of_f light  () 

{ 

return  (hours_of_f light) ; 

) 


int  engine_get_minutes_of_f light  () 

( 

return  (ininutes_of_f light) ; 

) 
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/*  $Header :  /a3/ad3t-cm/RWA/aiinnet/vehicle/rwa/3rc/RCS/rwa_kineniat  .c,  v 
1.1  1992/ 

10/07  19:00:23  cm-adat  Exp  $  */ 

/* 

*  $Log:  rwa_kineinat .  c ,  V  $ 

*  Reviaion  1.1  1992/10/07  19:00:23  cm-adat 

*  Initial  Veraion 

* 

*/ 

atatic  char  RCS_ID[]  -  "$Header:  /aS/adat- 
cm/RWA/aimnet /vehicle/ rwa/3rc/RCS/rwa_ 
kinemat.c,v  1.1  1992/10/07  19:00:23  cm-adat  Exp  $"; 

^■k-k-khtiiiifkititit*************************  *********************************** 
****** 

* 

*  Reviaiona : 

* 

*  Veraion  Date  Author  Title  SP/CR 


* 

Ntunber 

* 

Veraion 

Date 

Author 

Title 

* 

* 

1.2 

10/09/92 

R.  Branaon 

Data  File  Initiali¬ 

* 

zation 

* 

1.3 

10/16/92 

R.  Branaon 

Data  filenamea  changed 

* 

to  eight  charactera 

* 

1.4 

10/30/92 

R.  Branaon 

Added  pathname  to  data 

directory 


A************************************'**********************'************* 
***** ! 

/*********************************************************************** 

****** 

* 

*  SP/CR  No.  Deacription  of  Modification 

* 


* 

*  Hard  coded  definea  changed  to  array  element. 

*  Kinemat  data  array  added. 

*  Kinemat  initialization  array  added. 

*  Added  file  read  for  kinemat  data  and  kinemat 
initiali- 

*  zation  data  to  the  "veh_3pec_kinematic3_init" 

*  function. 

* 

*  Added  "/aimnet/data/"  to  each  data  file 
pathname . 

* 

************************************************************************ 
*****  I 


/**************************************************************** 
*  * 
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*  FILE: 

*  AUTHOR: 

*  MAINTAINER: 

*  PURPOSE: 

* 

* 

* 

*  HISTORY: 

* 

* 


rwa_klneinat .  c 
Bryant  Collard 
Bryant  Collard 

This  file  contains  routines  which  process 
information  generated  in  the  dynamics  and 
kinematics  software  to  generate  data  needed 
specifically  for  the  rotary  wing  aircraft. 
03/03/89  bryant:  Creation 
05/15/89  james:  Modified  for  RWA 


it 

* 

* 

* 

* 

* 

* 

* 

it 

* 


★  * 

*  Copyright  (c)  1989  BBN  Systems  and  Technologies,  Inc.  * 

*  All  rights  reserved.  * 

*  * 


finclude  "stdio.h" 
#include  "math.h" 


♦include  ”sim_types .h" 
♦include  "aim_dfn3.h" 
♦include  "sim  macros. h" 


♦include 

♦include 

♦include 

♦include 


"libmatrix.h" 
"librotate .h" 
"vehicle. h" 
"std  atm.h" 


♦define  GRAV  CONSTANT 


♦define  SIN_A0A_L1MIT 
♦define  C0S_A0A_L1MIT 
♦define  SIN_YAW_L1MIT 
♦define  COS  YAW  LIMIT 


kinemat^data [  0] 

kinemat_data [  1 ] 
kinemat_data [  2 ] 
kinemat_data [  3] 
kinemat  data [  4] 


♦define  DISPLAY_SPEED_LIMIT  kinemat  data[  5] 


static  VECTOR  pos_unit_vel; 

static  VECTOR  neg_unit_vel; 

static  REAL  sin_aoa; 

static  REAL  cos_aoa; 

static  REAL  sin_yaw; 

static  REAL  cos_yaw; 

static  REAL  altitude; 

static  REAL  body_pitch; 

static  REAL  body_pitch_of fset; 

static  REAL  velocity_pitch; 

static  REAL  roll; 

static  REAL  heading; 

static  REAL  true_airspeed; 

static  REAL  indicated_airspeed; 

static  REAL  g_force; 

static  REAL  vertical_speed; 

static  REAL  *ang_vel; 

static  REAL  *velocity_vector; 

static  VECTOR  gravity; 


-  d-3  - 


22  January  1993 
Reference  #  W003036 
Rev .  0.0 


J^pendix  D  -  Source  Code  Ustlng  for  nra_klneiDat .  c 

static  VECTOR  nonn_vel; 

static  T_MATRIX  velocity_to_body; 


static  REAL  kinemat  data [20]  -  { 


9.81, 

0.642787610, 

0.766044443, 

0.642787610 

,  0.766044443, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

3.0, 

0.0 

}  ; 


static  REAL  kinemat_init_data [30]  -  ( 

0.0,  1.0,  0.0,  0.0, 

0.0,  0.0,  1.0,  0.0, 

0.0,  0.0,  0.0,  0.0, 

0.0,  0.0,  0.0,  1.0, 

0.0,  0.0,  -1.0,  0.0, 

0.0,  0.0,  0.0,  0.0, 

}  ; 


-1.0, 

1.0, 

0.0, 

0.0, 

1.0, 

0.0 


*  * 

*  ROUTINE:  veh_spec_kineinatics__init  * 

*  PARAMETERS:  none  * 

*  RETURNS :  none  * 

*  PURPOSE:  This  routine  initializes  vehicle  specific  * 

*  kinematics  parameters.  * 

*  * 


**********************************«*****************************/ 


void  veh  spec  kinematics  init  () 

/*  DEFAULT  DATA  FOR  rwa_kinemat . c  READ  FROM  FILE  */ 
int  i ; 

float  data_tn?); 
char  descript (€4] ; 

FILE  *fp; 

fp  -  fopen ("/simnet/data/rwa  kine.d","r"); 
if(fp”NULL){  ~ 

fprintf (stderr,  "Cannot  open 
/simnet/data/rwa_kine.d\n") ; 

exit ( ) ; 

) 

rewind (fp) ; 

/*  Read  array  data  */ 

i-0; 

while (fscanf (fp, "%f",  &data_tnp)  !“  EOF) ( 
kinemat_data  [i]  ~  data_tinp; 
f gets (descript,  64,  fp) ; 

I*  print f ("kinemat_data (% 3d)  is%11.3f  %s",  i, 

kinemat  data[i]. 
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descript) ; 


++i; 


£close(fp); 

/*  END  DEFAULT  DATA  FOR  rwa_kineniat .  c  READ  FROM  FILE  */ 

/*  DEFAULT  INITIALIZATION  DATA  FOR  rwa_)cineinat .  C  READ  FROM  FILE  */ 

fp  «•  fopen{"/siinnet/data/rw_ki_in.d",  "r")  ; 
if  (fp— NULL)  { 

fprintf (stderr,  "Cannot  open 
/siinnet/data/rw_ki_in.d\n") ; 

exit ( ) ; 

) 


rewind (fp) ; 

/*  Read  array  data  */ 

i-0; 

while  (fsoanf  (fp,  "%f",  4data_tn?>)  !■■  EOF)  { 
kineinat_init_data  [i]  -  data^tnp; 
f gets (descript,  64,  fp) ; 

/*  printf  ("kineinat_init_data (%3d)  is%11.3f  %s",  i, 

kineinat_init  data[i],  descript); 

*/ 

++i; 

) 

fclose(fp); 

/*  END  DEFAULT  INITIALIZATION  DATA  FOR  rwa_kineniat . c  READ  FROM  FILE 
*/ 


pos_unit_vel [Y]  ■ 
pos_unit_vel [Z]  ■ 
neg_unit_vel [X]  - 
neg_unit_vel CY]  - 
neg_unit_vel ( Z ]  - 
sin_aoa  ■ 
cos_aoa  ■ 
sin_yaw  - 
cos_yaw  - 
altitude  - 
body_pitch  - 
body_pitch_offset  « 
velocity_pitch  ■ 
roll  - 
heading  - 
true_airspeed  - 
indicated_airspeed  « 
g_force  -• 
vertical_speed  - 


kinemat_init_data [  1 ] 
kineinat_init_data  [  2  ] 
kinemat_init_data [  3] 
kinemat_init_data I  4] 
kineinat_init_data  I  5] 
kineniat_init_data  [  6] 
kinemat_init_data [  7] 
kineiaat_init_data  [  8  ] 
kinemat_init_data [  9] 
kineinat_inlt_data  [10] 
kineinat_init_data  [11] 
kineinat_init_data  [  12  ] 
kineinat_init_data  [13] 
kineinat_init_data  [14] 
kineniat_init_data  [15] 
kineinat_init_data  [16] 
kineinat_init_data  [  17  ] 
kineinat_init_dat  a  [18] 
kinemat  init  data [19] 
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ang_vel  ■  vehicle_angular_velocity  <); 
velocity_vector  «  vehicle_velocity () ; 
gravity  [X]  -  kineitiat_init_data  [20] 

gravity  [Y]  “  kineinat_init_data  [ 2 1  ] 

gravity [Z]  •  kinemat _ init_data [22] 

norTn_vel[X]  -  kinemat_init_data  [23] 

nonn_vel[Y]  -  kineinat_init_data  [24] 

nonn_vel[Z]  -  kinemat_init_data [25] 

inat_ident  (velocity_to_body) ; 


*  * 


*  ROUTINE: 

*  PARAMETERS: 

*  RETURNS: 

*  PURPOSE: 

* 

* 


veh_spec_kinematics_simul  * 
none  * 
none  * 
This  routine  finds  vehicle  specific  kinematics  * 
parameters .  * 


void  veh_spec_kinematics_simul  () 
{ 

REAL  ‘velocity; 

REAL  teiqp,  teii¥>2; 

REAL  ‘position; 

T_MAT__PTR  body_to_world; 


position  -  rotate_get_loc  (world  ()/  hull  ()); 
altitude  -  position [Z]; 
if  (altitude  <  0.0) 
altitude  «  0.0; 

/‘  velocity  -  vehicle_velocity  ();  ‘/ 
velocity  “  velocity_vector; 

true_airspeed  ■  sqrt  (velocity [X]  ‘  velocity [X]  +  velocity [Y]  ‘ 
velocity [Y] 

+  velocity[Z]  ‘  velocity [Z] ) ; 

indicated_airspeed  "  true_airspeed  *  sqrt  (air_density  (altitude) 
air_density (0.0)); 
if  (true_air speed  <  E_MILLI) 

[ 

norm_vel[X]  -  0.0; 
norm_vel [ Y]  ■  1.0; 
norm_vel[Z]  -  0.0; 

} 

else 


( 

norm_vel [X] 
norm_vel [Y] 
norm_vel [Z] 

) 

if  (norm_vel[Z] 

{ 


velocity [X]  /  true_airspeed; 
velocity [Y]  /  true_airspeed; 
velocity [Z]  /  true_airspeed; 

1.0  >  -E  NANO) 


sin_aoa  -  -1.0; 
cos_aoa  -  0.0; 
sin_yaw  ■■  0.0; 


/ 
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cos_yaw  -  1.0; 

) 

else  if  (nonn_vel[Z]  +  1.0  <  E_NANO) 

sln_aoa  •»  1.0; 
cos_aoa  -  0.0; 
ain_yaw  -  0.0; 
cos  yaw  ■  1.0; 

) 

else 

{ 

sin_aoa  -  -norm_vel [Z] ; 

cos_aoa  -  sqrt  (norm_vel [X]  *  nonn_vel [X]  +  nonn_vel [Y]  * 
norm_vel [Y] ) ; 

sin  yaw  -  norTn_vel[X]  /  cos_aoa; 
cos  yaw  -  norm_vel[Y]  /  cos_aoa; 

) 

/* 

if  (ain_aoa  >  SIN_AOA_LIMIT) 

{ 

tenp  -  COS_AOA_LIMIT; 

velocity_to_body[l] [2]  -  -SIN_AOA_LIMIT; 

else  if  (sin_aoa  <  -SIN_A0A_LIM1T) 

( 

ten?)  -  COS_AOA_LIMIT; 

velocity_to_body II] [2]  ■  SIN_AOA_LIMIT; 

) 

else 

i 

*1 

ten?)  >  cos_aoa; 

velocity_to_body [1] [2]  -  -sin_aoa; 

/* 

) 

if  (cos_yaw  <  COS_YAW_LIMIT) 

{ 

velocity_to_body[0] 10]  -  COS_YAW_LIMIT; 
if  (sin_yaw  >  0) 

velocity_to_body[0] [1]  -  -SIN_YAW_LIMIT; 

else 

velocity_to_body [ 0 ] [ 1 ]  -  SIN_YAW_LIMIT ; 

) 

else 

{ 

*1 

velocity_to_body [0] [0]  “  cos_yaw; 
velocity_to_body [0] [1]  -  -sin_yaw; 

/* 

) 

*/ 

velocity_to_body [0] [2]  ■  0.0; 

velocity_to_body [1] [0]  -  -velocity_to_body [0] [1]  *  temp; 
velocity_to_body [1] [1]  ■  velocity_to_body [0] tO]  *  temp; 
velocity_to_body [2] [0]  -  velocity_to_body [1] [2]  * 
velocity_to_body [ 0 ] II]; 
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velocity_to_body [2] [1]  -  - velocity_to_body [ 1 ] [2]  * 
velocity_to_body [0] [0] ; 

velocity_to_body [2] [2]  -  velocity_to_body [1] [1]  * 
velocity_to_body [0] [0]  - 

velocity_to_body[l] [0]  *  velocity_to_body [0] [1] ; 
ang_vel  -  vehicle_angular_velocity  (); 
body_to_world  “  rotate_get_mat  (hull  ( ) ,  world  ( ) ) ; 
gravity[X]  -  body_to_world[0] [2] ; 
gravity[Y]  -  body_to_worldIl] [2] ; 
gravityCZ]  -  body_to_world[2H2] ; 

g_force  =  gravity (Z]  +  <true_airspeed  *  ang_vel[X]  /  GRAV_CONSTANT); 
vertical_speed  ■  vec_dot_prod  (norm_vel,  gravity) ; 
if  (true_airspeed  >-  DISPLAY_SPEED_L1MIT) 
velocity_pitch  *  asin  (vertical_speed) ; 

else 

velocity_pitch  •>  0.0; 
vertical_speed  t rue_air speed; 

body_pitch  -  asin  (body_to_world[l] (2] ) ; 
gravity tX]  -  -gravity [X] ; 
gravity [Y]  -  -gravity (Y]; 
gravity [Z]  *  -gravity [Z]; 

temp  -  sqrt  (body_to_world[l] [0]  *  body_to_world[l] [0]  + 
body_to_world[l] [1]  *  body_to_world[l] [1] ) ; 
if  (ten^  <  E_NANO) 

{ 

roll  -  0.0; 
heading  0.0; 

) 

else 


{ 

ten9>2  -  (body_to_world[0] (0]  *  body_to_world[l] [1]  - 

body_to_world[01 [11  *  body_to_worldtl] [0] )  /  t&ap; 
if  (ten^2  >  1.0)  tenp2  -  1.0; 
roll  «  acos  (teiip2)  ; 

if  (body_to_world[l] [1]  *  body_to_world [2] [0]  - 

body_to_world[l] [0]  *  body_to_world[2] [IJ  <  0.0) 
roll  ■  -roll; 

if  (body_to_world[l] [0]  >“  0.0) 

heading  -  acos  (body_to_world[l] [1]  /  temp) ; 

else 

heading  -  acos  (-body_to  world [1] [1]  /  temp)  +  PI; 

) 

/*  NO  METERS  FOR  NOW 

ineter_g_force_set  (g_£orce)  ; 
meter_vertical_speed_set  (vertical_speed) ; 
if  (true_airspeed  >-  DISPLAY_SPEED_LIMIT) 

meter_send_aero_data  (rad_to  deg  (body_pitch) ,  rad_to_deg 

(roll), 

rad_to_deg  (heading),  asin  (sin_aoa),  asin  (sin_yaw) , 
indicated_airspeed,  altitude,  g_£orce) ; 

else 

meter_send_aero_data  (0.0,  0.0, 

rad_to_deg  (heading),  0.0,  0.0, 
indicated_airspeed,  altitude,  g_force) ; 

*/ 

) 
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REAL  kineinatics_get_aoa  () 

{ 

return  (asin  (-velocity_to_body [1] [2] ) ) ; 

) 

REAL  kineinatics_get_yaw  () 

{ 

return  (asin  (-velocity_to_body (0] [1] ) ) ; 

) 

REAL  kineniatics_get_altitude  () 

{ 

return  (altitude) ; 

) 

REAL  kineinatics_get_body_pitch  () 

{ 

return  (body_pitch  +  body_pitch_offset) ; 

) 

REAL  kinematics_get_velocity_pitch  () 

( 

return  (velocity_pitch) ; 

) 

REAL  kinexnatics_get  roll  () 

( 

return  (roll) ; 

) 

REAL  kineiiiatics_get  heading  () 

( 

return  (heading) ; 

) 

REAL  kinematics_get_true__airspeed  () 

{ 

return  (true_airspeed) ; 

) 

RE^L  kineinatics_get_indicated_airspeed  () 

{ 

return  (indicated_airspeed) ; 

) 

REAL  kineinatics_get_g_£orce  ( ) 

{ 

return  (g_force) ; 

) 

REAL  kineinatics_get_vertical_speed  {) 

( 

return  (vertical_speed) ; 

) 
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REAL  *)cineinatics_get_gravity_vector  () 

{ 

return  (gravity) ; 

) 

REAL  *kineinatics_get_linear_veloclty_vector () 

{ 

return  (velocity_vector) ; 

) 

REAL  *kineroatica_get_norTnalized_velocity_vector  () 

{ 

if  (true_airspeed  >  DISPLAY_SPEED_LIMIT) 
return  (nonn_vel) ; 
else  if  (norm_veliy]  >"  0.0) 
return  (pos_unit_vel) ; 

else 

return  (neg_unit_vel) ; 

) 

REAL  *kineinatics_get_angular_velocity_vector  () 

( 

return  (ang_vel) ; 

) 

T_MAT_PTR  kineinatics_get_velocity_to_body  () 

( 

return  (velocity  to_body) ; 

) 
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The  following  appendix  contains  the  source  code  listing  for 
miss.adat.c  for  convenience  in  document  maintenance  and 
imderstanding  of  the  CSU. 
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/*  SHeader  /a3/adst-cm/RWA/simnet/vehide/libsrc/lilnnissUe/RCS/nuss_adat.c,v  1 
.1  1992/09/30 163952  on-adst  Exp  $  •/ 

/• 

•  $Log:  miss  adat.c,v  $ 

•Revision  1.1  1992/09/30  163952  cm-odst 

•  Initial  Version 

•/ 

static  char  RCS  IDD  =  "SHeader.  /a3/adst-cm/RWA/siinnet/vehicle/Iibsrc/IibmissiI 
e/RCS/iniss_adaLc,v  1.1 1992/09/30 163952  cm-adst  Exp  $"; 

•  Revisions: 

•  Version  Date  Author  Tide  SP/CR  Number 


1.2  10/23/92  R.  Branson  Data  File  Initiali¬ 

zation 

13  10/30/92  R.  Branson  Added  pathname  to  data 

directory 

lA  11/25/92  R.  Branson  Changed  %i  to  %d 

. . / 


•  SP/CR  No.  Description  of  Modification 


Hard  coded  defines  changed  to  array  dements. 

Characteristics/panuneter  data  array  added. 

Engine  initialization  data  array  add^. 

Degree  of  polynomial  data  array  added. 

Added  file  reads  for  ADAT  characteristics/ 
parameters,  bum  speed  coefficients,  coast  speed 
coefficients,  bum  turn  coefficients,  coast  turn 
coefficients,  and  tenoral  bias  coefficients. 

Added  "/sinmet/data/”  to  each  data  file  pathname. 


/' 


FILE:  miss.adatx;  • 

AUTHOR:  Bryant  CoIIard  * 

MAINTAINER:  Bryant  Collard  • 

PURPOSE:  This  file  contains  routines  whidt  fly  out  a  * 
missile  with  the  characteristics  of  a  ADAT  * 
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missile.  * 

HISTORY:  06/28/89  biyant:  Creation  • 

08/06/90  bryant:  NIU  librva  modifications.  * 


Copyright  (c)  1989  BBN  Systems  and  Technologies,  Iik. 
All  rights  reserved.  * 


/ 


#include  "stdioi\" 

#include  "math  Jt" 

#iiKlude  "sim_types.h" 

#include  "sim_dfns.h" 

#include  "basic.h" 

#include  ”mun_type  J\" 

#iiKlude  *Tibmap.h" 

#include  "libmatrix.h” 

#include  "miss_adat  Ji" 

#include  Tibmiss_dfn.h" 

#include  "libmissJocJt" 

/•/ 

*  Define  missUe  characteristics. 

/V 

#define  ADAT_BURNOUT_TIME  adat  miss  chart  0] 

#define  ADAT_MAX_FUGHT_TIME  adat.mi^.charf  1] 

#define  INVEST_DIST_SQ  adat.missjcharl  ^ 

#define  HELO_FUZE_DIST_SQ  adat_miss_char(  31 
#define  AIR_FUZE_DIST_SQ  adat_iniss_chai{  4] 

#define  ADAT_TEMP_BIAS_TIME  adat_mis8jdiai{  5] 

#define  CLOSE.RANGE  adat_miss_char(  6] 

/V 

*  Define  the  states  the  ADAT  MISSILE,  can  be  in. 

/•/ 

#define  ADAT.FREE  0  /*  No  missile  assigned.  */ 

#define  ADAT.GUIDE  1  /*  Missile  flying  and  guided.  */ 

#define  ADAT.UNGUIDE  2  /*  Missile  flying  Init  unguided.  */ 

#define  ADAT.CLOSE  3  /*  Missile  flying  against  a  close  target.  */ 

#define  ADAT.HOT  4  /*  Missile  fired  without  coolmg.  •/ 

/V 

*  The  following  terms  set  the  order  of  the  polyntnnials  used  to  determine 

*  the  speed  or  cosiire  of  the  maximum  allowed  turn  rate  of  the  missile 

*  at  any  point  in  time. 
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/V 

#define  ADAT_BURN_SPEED_DEG  adat_niiss_poly_degI  01 
#define  ADAT_COAST_SPEED_DEG  adat_nuss_poly_degI  IJ 
#deBne  AD  AT  BURN_TURN_DEG  adat_nuss_poly_degI  2] 

#define  ADAT_COAST_TURN_DEG  adat_nuss_poly_deg[  3] 

#define  ADAT_TEMP_BIAS_DEG  adat_nuss_poly_deg[  4] 

/V 

*  ADAT  nussile  characteristic  parameters  initialized  to  default  values. 
/*/ 

static  REAL  adat_miss_char[10]  = 

{ 

48.0,  /’ticks (3.2 sec)*/ 

300.00,  /’ticks (20.0 sec)*/ 

90000.0,  /’(300  m) ’’2’/ 

49.0,  /’(7  m)  ”2’/ 

1%.0,  /’(14  m)  ”2’/ 

60.0,  /’  ticks  (4.0  sec)  ’/ 

2200.0,  /’  close  range*  / 

0/), 

0.0, 

Of) 

); 

/’/ 

’  The  following  are  the  default  values  of  foe  degree  of  polynomials. 
/’/ 

static  int  adat  miss_poly  d^5]  = 

{ 

2,  /’Speed  before  motor  burnout’/ 

4,  /*  Speed  after  motor  burnout.  ’/ 

3,  /’  Cosine  of  max  turn  before  burnout.  */ 

5,  /*  Cosine  of  max  turn  after  burnout  */ 

4  /’  Temporial  bias.  ’/ 

1; 

/’/ 

’  Coefficients  for  foe  qxed  polynomial  before  motor  burnout 
/’/ 

static  REAL  adat  bum  speed  coeffilO]  = 

{ 

2.296,  /’a  0-m/tick’/ 

0.72990856,  /’  a  1  -  m/tick’’2  ’/ 

0.013310932,  /’a  2 - m/tick’’3 ’/ 

0.0, 

0.0, 

0.0, 


-E-4- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  E  -  Source  Code  Listing  for  miss.adatc 

0.0, 

0.0, 

0.0, 

0.0 

); 

/•/ 

*  Coefficients  for  the  ^)eed  polynomial  after  motor  burnout. 

/•/ 

static  REAL  adat_coast_speed_coeffll01  = 

{ 

10552162,  /•a_0-m/tick*/ 

-1 .0157285,  /•  a_l  -  m/tick*^  •/ 

5.6124330e-3,  /•  a_2  -  m/tidc*^  •/ 

-15262608e-5,  /*  a_3  -  m/tick-4  •/ 

1.8991982e-8,  /*  a_4  -  m/tick**5  •/ 

0.0, 

0.0, 

0.0, 

0.0, 

ao 

); 

/V 

*  Coefficients  for  the  cosine  of  max  turn  polynomial  before  motor  burnout. 

/V 

static  REAL  adat.bum  turn  coeffllO]  = 

{ 

0.999993,  /•a_0-cos(rad)/tick*/ 

-62386917e-7,  /•  a  1  -  cos(rad)/tick^  •/ 

1.6146426e-7,  /*  a_2  -  cos(rad)/tick*»3  V 
-9.720142e-7,  /•  a_3  -  cos(rad)/tick^4  V 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

ao 

1; 

/V 

*  Coefficients  for  the  cosine  of  max  turn  polynomial  after  motor  burnout. 

/V 

static  REAL  adat  coast  turn  coeffJlO] » 

( 

0.99753111,  /•a_0-cos(rad)/tickV 
55817986e-5,  /•  a  1  -  cos(iBd)/tick**2  •/ 

-5.127d276e-7,  /’a  2 - cos(rad)/tick^ •/ 
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2.2388593e-9,  /•  a_3  -  co8(rad)/tick**4  V 

-5.1964622e-12,  /*  a_4  -  cos(rad)/lick^5  */ 

4.5499104e-15,  /•  a_5  -  oos(rad)/tick^6  •/ 

0.0, 

0.0, 

0.0, 

0.0 

}; 


/V 

*  Coefficients  for  the  temporial  bias  polynomial. 

/V 


static  REAL  adat_temp_bias_coeffll01  = 


{ 


53105657e-2, 

7.1795817e-2, 

1.8084646e-2, 

-6.0083762e^, 

4.6761091e6, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 


1; 


/•a_0-m*/ 

/•  a  1  -  m/tick  •/ 
/*a”2-m/tick*^*/ 
/•a_3-m/tick*»3V 
/•  a_4  -  m/tick**4  •/ 


/V 

*  The  following  arrays  are  used  to  give  the  fnisstle  the  proper  superelevation 

*  at  launch  time.  Two  are  required  to  deal  with  launches  off  either  side 

*  of  the  turret. 

/V 

static  T_MATRIX  tube_C_sigJ\t_left; 
static  T_MATRIX  tube_C_si^t_rigf»t; 

/V 

*  Memory  for  ffie  missiles  is  declared  in  v^de^jedfic  code.  During 

*  initialization,  a  pointer  is  assigned  to  this  memory  ffien  some  memory 

*  issues  are  dealt  with  in  this  module. 

/•/ 

static  ADAT_MISSILE  ^adat.array;  /•  A  pointer  to  missile  memory.  •  / 
static  int  num_adats;  /*  The  numbCT  of  defiired  missiles. 

/V 

*  Declare  static  fuiKtions. 

/V 

/*  static  void  missile.adat.fly  ();  **  made  external  V 
static  void  missile_adat_stop  0; 
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ROUTINE:  missile_adat_init  * 

PARAMETERS:  missile.array  -  A  pointer  to  an  array  of 
ADAT  missiles  defirred  in  * 
vehicle  specific  code.  * 
num_missiles  -  The  number  missiles  defined  in  * 
_missile_arTay_.  * 

RETURNS:  none  • 

PURPOSE:  This  routine  copies  the  parameters  into 
variables  static  to  this  module  and  initializes  * 
the  state  of  all  the  missiles.  It  also  * 
initializes  the  proximity  fuze.  * 

. . . . f 


void  missile_adat_init  (rrussile.array,  num_missiles) 

ADAT.MISSILE  missUe.arrayl]; 
intnum  missiles; 

{ 

int  i;  /•  A  counter.  •/ 

REAL  mag;  /*  Used  to  generate  tube  to  sig^t  matrides.  */ 
int  data.tmpjnt; 
float  data.tmp; 
char  descriptJM]; 

HLE  •fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  miss.adatx  READ  FROM  FILE  */ 

=  fopen("/simnet/data/ms  ad_ch.d","r"); 
if(fp=NULL){ 

fprintflstderr,  "Cannot  open  /simnet/data/ms_ad_ch4]\n"); 
exitO; 

) 

rewiruK^); 

/*  Read  array  data  */ 
i=0; 

while(fscatd(fp,"%r,  Adata.tmp)  !=  EOF){ 
adat_miss_char(i]  s  data_tmp; 
fgetsfdescript,  64,  fp); 

/•  printfradat_miss_char(%3d)  is%l  1 3f  %s",  i, 

adat_miss_char(i],  descript);  •/ 

++i; 

) 

fclose(fp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  miss_adaU  READ  FROM  FILE  •/ 
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/•  DEFAULT  BURN  SPEED  DATA  FOR  miss.adatx  READ  FROM  FILE  */ 

fp  =  fopen("/siinnet/data/ms_ad_bs.d",V); 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /sinuiet/data/ms_ad_bsxl\n"); 
exitO; 

} 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data_tmp_int); 

ADAT_BURN_SPEED_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

/•  printf("adat  miss_poly_deg(0)  is%3d  %s", 

ADAT_BURN_SPEED_DEG,  descript);  */ 

/*  Read  array  data  */ 
i=0; 

while(facanf(fp,"%r,  &data_tmp)  !=  EOF){ 
adat_bum_speed_coeff[i]  =  data_tmp; 

^getsfdescrifrt,  64,  fp); 

/*  printfradat_bum_speed_coeff(%3d)  is%l  1 3f  %s",  i, 
adat_bum_speed_coeffIi],  descript);  •/ 

++i; 

) 

fclosef^); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  miss.adatx  READ  FROM  FILE  •/ 

/*  DEFAULT  COAST  SPEED  DATA  FOR  miss.adatx  READ  FROM  FILE  •/ 

^  =  fopen("/sinuiet/data/nis  ad  cs.d","r'^ 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /siinnet/data/ms_ad_cs.d\n"); 
exitO; 

) 

re%vind(fp); 

/*  Read  degree  of  polynomial  */ 

fecanf(fp,"%d",  &data_tmp_int); 

ADAT_COAST_SPEED_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

/*  printf("adat  miss  poly  degd)  is%3d  %s", 

ADAT_COAST_SPEED_DEG,  descript);  V 

/*  Read  array  data  */ 
i=0; 


-E-8- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  E  •  Source  Code  Listing  for  miss.adaLc 


while(fscanf(fp,'‘%r',  Adata.tmp)  !=  EOR{ 
adat_coast_speed_coeffIi]  =  data_tmp; 
fgets(descri|9t,  64,  fp); 

/•  printf("adat_coast_speed_coeff(%3d)  is%11.3f  %s",  i, 
adat_coast_^)eed_coeffIi],  descript);  •/ 

■H-i; 

) 

fcloseffp); 

/•  END  DEFAULT  COAST  SPEED  DATA  FOR  miss.adatc  READ  FROM  FILE  •/ 

/•  DEFAULT  BURN  TURN  DATA  FOR  miss.adatx  READ  FROM  FILE  •/ 

fp  =  fopenr/sinmet/data/ms_ad_bLd",”*^); 
if(fp==NULL){ 

fprintffstderr,  "Cannot  open  /siinnet/data/ms_ad_bt.d\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data_bnp_int); 

ADAT_BURN_TURN_DEG  =  data.tmp.int; 
fgetsfdescript,  64,  fp); 

/•  printf("adat_iniss_poly_deg(2)  is%3d  %s", 

ADAT_BURN_TURN_DEG,  descript);  V 

/*  Read  array  data  */ 
i=0; 

while(fscanf<fp,"%r,  Adata.tmp)  !=  EOF){ 
adat_bum_tum_coeffIi]  =  ^ta_tmp; 
fgetsCdescript,  64,  fp); 

/•  printfradatJbum_tum_coeff(%3d)  is%113f  %s",  i, 
adat_bum_tum_coeff{i],  descript);  •/ 

++i; 

} 

fclose(fp); 

/•  END  DEFAULT  BURN  TURN  DATA  FOR  miss_adat.c  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  TURN  DATA  FOR  miss.adatx  READ  FROM  FILE  */ 
fp  =  fopen(”/siinnet/data/ms  ad_ct.d",V); 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/ms_ad_ct4l\n"); 
exitO; 

) 

re%vind(fp); 
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/*  Read  degree  of  polynomial  */ 

fscanf(^,"%d",  &data_tmp_int); 

ADAT_COAST_TURN_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

/•  printf("adat  miss  poly  deg(3)  is%3d  %8”, 

ADAT_COAST_TURN_DEG,  descript);  •/ 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 
adat_coast_tum_coeffIi]  =  data_tn^; 
fgetsfdescript,  64,  fp); 

/•  printfradat_coast_tum_coeff(%3d)  is%113f  %s",  i, 

adat_coast_tum_coeffIi],  descript);  •/ 

++i; 

1 

fcloseffp); 

/•  END  DEFAULT  COAST  TURN  DATA  FOR  miss_adat.c  READ  FROM  FILE  V 

/*  DEFAULT  TEMP  BIAS  DATA  FOR  miss.adatx  READ  FROM  FILE  •/ 
fp  =  fopen("/simnet/data/ms  ad  d).d","r"); 
if(f^=NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/ms_ad_tt>.d\n”); 
exitO; 

) 

rewind(fp); 

/*  Read  degree  of  pol)momial  */ 

fscanf(fp,"%d",  &data_tmp_int); 

ADAT_TEMP_BIAS_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

/•  printf("adat_miss_poly_deg(4)  is%3d  %s", 

ADAT_TEMP_BIAS_DEG,  descript);  •/ 

I*  Read  array  data  */ 
i=0; 

while(facanf(fp,"%r,  &data_tmp)  !=  EOF){ 
adat_temp_bias_coeffIi]  =  data_tmp; 
fgetsCdescript,  64,  fp); 

/•  printfradat_temp_bias_coeff(%3d)  is%l  Uf  %s",  i, 

adat_temp_bias_coeffIi],  descript);  •/ 

-H-i; 

) 


-E-10- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  E  -  Source  Code  Listing  for  miss.adaLc 


fdoseffp); 

/*  END  DEFAULT  TEMP  BIAS  DATA  FOR  miss.adatc  READ  FROM  FILE  •/ 

num.adats  =  num.missiles; 
adat_array  =  nusale_anay; 
for  (i  =  0;  i  <  num_missiles;  i-M-) 

{ 

adat_aTTay(i].mptr.state  =  ADAT_FREE; 

adat_array(i].mptr.max_flight_tinie  =  ADAT_MAX_FLIGHT_TIME; 
adat  aiTayiii.mptr.n\ax  tum_directions  =  1; 

} 

/V 

*  Initialize  the  proximity  fuze. 

/V 

missile  fuze  prox  initO; 

/V 

*  Initialize  the  tube  to  sight  transformation  matrides. 

/V 

mag  =  sqrt  (adat_bum_speed_coeffIO]  •  adat_bum_speed_coeffI01  + 

2.0  •  adat_temp_bias_coeffIO]  *  adat_temp_bias_coeffIO]); 
tube_C_sight_right[1](0]  =  adat_temp_bias_coe^O]  /  mag; 
tube_C_sight_rightIll[ll  =  adat_bum_speed_coeffIO]  /  mag; 
tube_C_sight_right[lj[2j  =  adat_temp_bias_coeffIO]  /  mag; 
mag  =  sqrt  (tubejC_sight_rig^tIl](0]  •  tube_C_si^t_right(l][01  + 
*ube_C_sight_rightIl](l]  •  tube_C_sight_rightI  11(1]); 
tube_C_aight_right(01(0j  *  tube_C_sighl_rightIll(lJ  /  mag; 
tube_C_sight_right(oillj  =  -tube_C_sig^it_rightlli(0]  /  mag; 
tube_C_sight_right(oi[2i  =  OjO; 
tube_C_sight_right(2j[oj  =  tube_C_sight_ri^t{l][2]  • 
tube_C_sight_right(OI(ll; 

tube_C_sight_right(2I(lJ  =  -tube_C_sight_right(ll[2]  * 
tube_C_sight_right(01l01; 
tube_C_sight_rig}U(2](2j  =  mag; 
mat_copy  (tube_C_sight_rigJit,  tube_C_sigJit_left); 
tube_C_sight_1^0l(l]  *  -tube_C_sightJeft(01(ll; 
tube  C  sight  leftiljlo]  =  -tube  C  sight  leftiijiol; 
tube_C_sightJeft[21(0J  =  -tube_C_sight_left(21[01; 


int  missile_adat_is_free(  missile ) 
int  missile; 

( 

retum(  (adat  array[missilel.mptr.state  —  ADAT_FREE )); 

) 


•  ROUTINE:  missile_adat_fire  • 

•  PARAMETERS:  aptr  •  A  pointer  to  the  ADAT  missile  to  be  * 

•  fired. 
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*  tai^.type  -  The  missile  can  be  set  for  three  • 

*  of  targets  by  the  launchmg  * 

*  vehicle.  This  variable  stores  * 

*  the  setting.  * 

*  lauiw:h_point  -  The  location  in  world  * 

*  coordinates  that  the  missile  is  * 

*  latmched  from.  * 

*  loc_sight_lo_world  -  The  sight  to  world  * 

*  transformation  matrix  used  * 

*  only  in  this  routine.  * 

*  laurKh_speed  -  The  speed  of  the  laurtch  * 

*  platform  (assumed  to  be  in  the  * 

*  direction  of  the  missile).  * 

*  range_to_intercept  -  Range  to  intercept.  • 

*  tube  -  The  tube  the  missile  was  lauTKhed  from.  * 

*  target_vehicle_id  -  The  vehicle  ID  of  the  • 

*  target  (if  any).  • 

*  RETURNS:  TRUE  if  successful,  FALSE  if  not.  • 

*  PURPOSE:  This  routine  performs  the  functions  • 

*  spedfrcally  related  to  the  firing  of  a  ADAT  * 

*  missile.  • 

. / 

int  missile.adat.fire  (aptr,  target_type,  bunch_point,  loc_sight_to_world, 
launch.speed,  range_to_intercept,  tube,  tai^  vehicle  id) 
ADAT.MISSILE  •aptr; 
int  target_type; 

VECTOR  IaurKh_point; 

T_MATRIX  loc_sight_to_world; 

REAL  launch_speed; 

REAL  range_to_intercept; 
int  tube; 

VehiclelD ‘target  vehiclejd; 

{ 

int  i;  /•  A  counter.  •/ 

MISSILE  •mptr;  /•  Pointer  to  the  particular  geireric  nrissile 
pointed  at  by  _aptr_.  •/ 

int  corrun_target_type;  /*  Indication  of  whether  target  is  kriown.  •  / 

/•/ 

•  Firkl_mptr  and  _target_id_. 

/•/ 

mptr  =  &:(aptr->mptr); 
if  (target_vehicle_id  =  0) 
aptr->target_vehicle_id.vehicle  =  vehiclelrrelevant; 
else 

aptr->taiget_vehicle_id  =  ‘target  vehicle  id; 

/‘/ 

‘  Set  the  initial  tirrte,  location,  orientation,  and  speed  of  the  generic 
‘  missile. 

/‘/ 
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n^)tr->tinie  =  0.0; 

vec_copy  Oaunch_point,  mptr->location); 
if  (range_to_intercept  <  CLOSE_RANGE) 
mat_copy  floc_sight_to_worid,  mptr->orientation); 
else 
{ 

if  (((tube/ 2)  *2)==  tube) 

nuit_mat_mul  (tube_C  .sightjeft,  loc_sight_to_world, 
mptr->orientation); 
else 

mat_mat_n[»ul(tube_C_sight_right,loc_sight_to_world, 

mptr->orientation); 

) 

n^jtr->speed  =  missile_util_evaI_poly  (ADAT_BURN_SPEED_DEG, 
adat_bum_speed_coeff,  0.0)  +  launch_speed; 
mptr->init  speed  =  launch  speed; 

/V 

*  Indicate  that  the  proximity  fuze  has  no  vehicles  it  is  tracking. 

/V 

aptr->pptr  =  NULL; 

/V 

*  Set  fuze  distance  and  fuze  target  according  to  missile  target 

*  setting.  Set  network  variables. 

/V 

switch  (target  type) 

{ 

case  ADAT.TGT.OSTD: 
aptr->fuze.dist_sq  =  0.0; 
aptr->target_flag  =  PROX_FU2I_ON_NO_VEH; 
break; 

case  ADAT_TGT.HELO; 
aptr->fuK_dist_sq  =  HELO_FU2IE_DIST_SQ; 
if  (aptr->target_vehiclejd.vehicle  =  vehicleirrdevant) 
aptr->taiget_flag  =  PROX_FUZE_CX^_ALL_VEH; 
else 

aptr->target_flag  =  PROX_FUZE_CXvi_ONE_VEH; 
break; 

case  ADAT_TCT_AIR: 
aptr->fu»_dist_sq  =  AIR_FUZE_DIST_SQ; 
if  (aptr->target_vehicle_id.vehicle  ^  vehiclelnelevant) 
aptr'>target_flag  =  raOX_FUZE_CX'l_ALL_VEH; 
else 

aptr>>target_flag  =  PROX_FUZE_CXsJ_ONE_VEH; 
break; 
default: 

aptr->fuze  dist  sq  =  0.0; 

aptr->targrt_flag  =  PROX_FUZE_ON_NO_VEH; 

printf  ("MISS_ADAT:  Unknown  target  type  %d\n",  taiget_type); 

break; 

) 

if  (aptr->target_vehiclejd.vehicle  ==  vehiclelrrelevant) 
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comin_target_type  =  taigetUnknown; 
else 

comm  tai'get_type  =  taigetlsVehicle; 

/V 

*  Tell  the  rest  of  the  world  about  the  firing  of  the  missile.  If  this 

*  cannot  be  done,  return  FALSE. 

/V 

if  (!missile_util_comm_fire_missUe  (mptr,  MSL_TYPE_MISSILE, 

map_get_ammo_entry_from_network_type(munition_US_ADATS), 
munition_US_ADATS,  munition_US_ADATS,  &(aptr->target_vehicle_id), 
comm_target_type,  objectirrelevant,  tube)) 
return  Q^LSE); 

/•/ 

*  If  all  was  successful,  put  any  flying  missiles  in  an  unguided  state 

*  and  put  this  missile  in  a  guided  state. 

/V 

for  (i  =  0;  i  <  num  adats;i-M-) 

{ 

if  ((adat_aTTay{il.mptr.state  ==  ADAT_GUIDE)  I  I 
(adat_array[i].mptr.state  ==  ADAT_Q.OSE)) 
adat  arFay(i].mptr.state  =  ADAT  UNGUIDE; 

1 

if  (tange_to_interoept  <  CLOSE_RANGE) 
mptr->state  =  ADAT_CLOSE; 
else 

mptr->state  =  ADATjGUIDE; 
return  (TRUE); 


*  ROUTINE:  missile_adat_fly_missiles  * 

*  PARAMETERS:  sight.location  -  The  location  in  world  * 

*  coordinates  of  the  gunner's  * 

sight  * 

*  loc_sight_to_worId  -  The  sight  to  world  * 

*  transfoimation  matrix  used  * 

*  only  in  this  routine.  * 

*  veh_list  -  Vehicle  list  ID.  • 

*  RETURNS:  none  * 

*  PURPOSE:  This  routine  flies  out  all  missiles  in  a  * 

*  flying  state.  • 

. 

void  missile_adat_fly_missiles  (sightjocation,  Ioc_sight_to_world,  veh_list) 
VECTOR  sightjocation; 

T_MATRIX  loc_sight_to_world; 
intveh  list; 

{ 

int  i;  /•  A  counter.  */ 
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/V 

*  Fly  out  all  flying  missiles. 

/V 

for  (i  s  0;  i  <  num  adats;i-M-) 

{ 

if  (adat_aiTay(i].mptr.state !»  ADAT.FREE) 
missile.adat.fly  (A(adat_airay[i]),  sight.location, 
loc  si^t  to  world,  i,veh  list); 

) 

) 


. . . . 

*  • 

*  ROUTINE:  missile_adat_fly  • 

*  PARAMETERS:  aptr  -  A  pointer  to  the  ADAT  missile  that  is  to  * 

*  be  flown  out  * 

*  sightjocation  -  The  location  in  world  * 

*  coordinates  of  the  gunner's  * 

*  sight  • 

*  loc_sight_to_world  -  The  sight  to  world  • 

*  transformation  matrix  used  * 

*  otdy  in  this  routine.  * 

*  tube  -  The  tube  the  missile  was  launched  from.  * 

*  veh_list  -  Vehicle  list  ID.  • 

•RETURNS:  none 

*  PURPOSE:  This  routirte  performs  the  functions  • 

*  specifically  related  to  the  flying  a  ADAT  • 

*  missile.  • 

*  ♦ 

. . . . - . . 

void  missile_adat_fly  (aptr,  sightjocation,  loc_si^t_to_world,  tube, 
veh_list) 

ADAT_MISSILE*aptr; 

VECTOR  sight.location; 

T_MATRIX  loc_sight_to_world; 

inttube; 

intveh  list; 

{ 

MISSILE  •mptr;  /•A  pointer  to  the  genoic  aspects  of  _aptr_.*/ 

REAL  time;  /•  The  current  time  after  laurKh  (ticks).  */ 

REAL  bias;  /•  The  value  of  the  temporal  bias.  •/ 

/•/ 

•  Set  _mptr_  arvi  _time_.  These  values  are  created  mostly  for  itK^eased 

•  readablity. 

/•/ 

rr^Ttr  »  A(aptr->mptr); 
time  =  mptr->time; 

/•/ 

•  Fiird  the  current  missile  speed  arui  the  cosines  of  the  rruodmum  allowed  turn 
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*  angles  in  each  direction.  The  equations  used  are  different  before  and 

*  atomotOT  burnout. 

/V 

if  (time  <  ADAT  BURNOUT  TIME) 

{ 

mptr->speed  =  missile_utiI_eval_poly  (ADAT_BURN_SPEED_DEG, 
adat_bum_speed_ooeff,  time)  +  mptr->init_speed; 
mptr->cos_max_tumIO]  =  missile_util_eval_poly  (ADAT_BURN_TURN_DEG, 
adat  bum  tum_coeff,  time); 

) 

else 

( 

mptr->speed  =  missile_util_eval_poly  (ADAT_CX)AST_SPEED_DEG, 
adat_coast_specd_coeff,  time)  +  mptr->init_speed; 
mptr->cos_max_tum(0]  =  missile_util_eval_poIy  (ADAT_COAST_TURN_DEG, 
adat  coast  turn  coeff,time); 

1 

/V 

*  Find  the  target  point,  etc. 

/•/ 

if  ((mptr->state  ==  ADAT  GUIDE)  I  I  (mptr->state  ==  ADAT  CLOSE)) 

{ 

if  ((time  <  ADAT  TEMP  BIAS  TIME)  &&  (mptr->state  »=  ADAT  GUIDE)) 

{ 

bias  «  missile_utiLevaI_poly  (ADAT_TEMP_BIAS_DEG, 
adat_iemp_bias_coeff,  time); 
if  (((tube/ 2)  *2)  =  tube) 
missile.target Jos.bias  (mptr,  sightjocation, 
loc_sight_to_world,  -bias,  bias); 
else 

mis5ile_target_los_bias  (nq>tr,  sightjocation, 
loc  sight  to  world,  bias,  bias); 

) 

else 

missile_taiget Jos  (mptr,  sightjocation,  loc_sight_to_world); 

else  if  (mptr->state  =  ADAT_UNGUIDE) 
missile_taiget_unguided  (mptr); 
else 

printf  ("MISSILE  ADAT:  disallowed  missile  state  %d\n",  mptr->state); 

/V 

*  Try  to  actually  fly  the  missile.  If  this  fails  stop  the  missile  altogether 

*  and  return. 

/•/ 

ifOmissile  util  flyout  (mptr)) 

{ 

mi8sile_adat_stop  (aptr); 
return; 

) 

else 

{ 
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/V 

*  If  the  missile  successfully  flew,  process  the  proximity  fuze. 

/V 

missiIe_fuze_prox  (mptr,  MSL_TYPE_MISSILE,  aptr->taiget_flag, 
&(aptr->target_vehicle_id),  A(aptr->pptr),  veh_list, 

INVEST  DIST  SQ,  aptr->fuze_dist_sq); 

/V 

*  If  the  missile  successfully  flew,  check  for  an  intersection  with  the 

*  ground  or  a  vehicle.  If  one  is  found,  blow  up  the  missile,  stop  its 

*  flyout  and  return. 

/V 

if  (missile  util  comm  check  detonate  (mptr,  MSL_TYPE_MISSILE)) 

{ 

missile_adat_stop  (aptr); 
return; 

) 

) 

/V 

*  If  the  missile  is  to  continue  to  fly,  return. 

/V 

return; 

} 


*  ROUTINE:  missile  adat.reset  missiles  * 

•PARAMETERS:  none  • 

•RETURNS:  none  • 

•  PURPOSE:  This  routine  puts  any  flying  missile  into  an  • 


unguided  state. 


void  missile  adat.reset  missiles  () 

{ 

int  i;  /•  A  counter.  •/ 

/•/ 

•  Reset  all  flying  missiles. 

/•/ 

for  (i  =  0;  i  <  num  adats;  i-t-t-) 

{ 

if  ((adat_array[i] jnptr.state  ==  ADAT.GUIDE)  1 1 
(adat_arra)^i].mptr.state  ==  AD/S'_CLOSE)) 
adat  anay(i].mptr.state  =  ADAT_UNGUIDE; 

) 

) 

•  ROUTINE:  missiIe_adat_stop  • 

•  PARAMETERS:  aptr  •  A  pointer  to  the  ADAT  missile  that  is  to  • 
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be  stopped.  * 

RETURNS:  none  * 

PURPOSE:  This  routine  causes  all  concerned  to  forget  * 
about  the  nussile.  It  should  be  called  when  * 
the  fl)^ut  of  any  ADAT  missile  is  stopped  * 

(whether  or  not  it  has  exploded).  Note  that  * 
this  routine  can  only  be  called  within  this  * 
module.  * 

. . . . 


static  void  missiIe_adat_stop  (aptr) 

ADAT_MISSILE  ‘aptr; 

{ 

/V 

*  Tell  the  world  to  stop  worrying  about  this  nussile  then  release  the 

*  menwry  for  use  by  other  missiles. 

/V 

nussile_fuze _prox_stop  (A(aptr->pptr)); 

missUe_util_oomm_stop_missile  (&{aptr->mptr),  MSL_TYPE_MISSILE); 
aptr->n^tr  .state  =  ADAT  FREE; 

} 

orll  33>  logout 
Conrtection  closed. 
wdll-4> 
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/•  SHeader  /a3/adst-cm/RWA/sinuiet/vehide/Iibsrc/libmis8ile/RCS/nuss_atgmx,v  1 
.1  1992/09/30 163952  cm-adst  Exp  $  •/ 

/• 

•  $Log:  nuss_atgmx,v  $ 

•Revision  1.1  1992/09/30  163952  cm-adst 

•  Initial  Version 

V 

static  char  RCS.IDJl  =  "SHeader  /a3/adst-cm/RWA/simnet/vehide/libsrc/libnussil 
e/RCS/nus8_atgm.c,v  1.1 1992/09/30 163952  cm-adst  Exp  $"; 

/— . . ******** . . 

•  Revisions; 

•  Version  Date  Author  Title  SP/CR  Number 


•  1.2  10/23/92  R.  Branson  Data  File  Initiali- 

•  zation 

•  13  10/30/92  R.  Branson  Added  pathname  to  data 

•  directory 

•  1.4  11/25/92  R.  Branson  Changed  %i  to  %d 


/' 

» 

* 


SP/CR  No. 


Description  of  Modification 


Hard  coded  defines  changed  to  array  elements. 

Characteristics/parameter  data  array  added. 

Degree  of  polynomial  data  array  added. 

Added  file  reads  for  ATGM  characteristics/ 
parameters,  bum  ^reed  coefffeients,  coast  speed 
coefficients,  bum  turn  coefficients,  and  coast 
turn  coefficients. 

Added  "/simnet/data/”  to  each  data  file  pathname. 


•  FILE:  miss.atgiac  • 

•AUTHOR:  Bryant  Collard  • 

•MAINTAINER;  Bryant  Collard  • 

•  PURPOSE:  This  missile  is  the  same  as  the  tow  except  • 

•  it  uses  point  targeting.  It  flys  to  a  point  * 

•  rather  than  the  view  direction  • 


-F-2' 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  F  •  Source  Code  Listing  for  mi8s_atgm.c 


HISTORY:  10/31 /SSbiyant  Creation  • 

4/26/89  biyant:  Added  statically  allocated  mem  * 


Copyrigjit  (c)  1988  BBN  Systems  and  Technologies,  Inc. 
All  rights  reserved.  • 

. . . 


#include  ”stdio  Jt" 

#include  "sim_types.h" 

#include  "sim_di^  Ji" 

#include  ”basic.h" 

#include  "mun_type.h" 

#include  libmatrixJi'* 

#include  libmap.h” 

#include  1ibrva.h" 

#include  "miss.atgm.h** 

#include  "libmiss_dfn.h" 

#include  *libmiss_locJi" 

/•/ 

*  Define  missile  characteristics. 

/•/ 

fdefine  TOW_BURNOUT_TIME  tow.missjcharfOj 
♦define  TOW_RANGE_LIMIT_TIME  tow_missjchar(l] 

♦define  TOW  MAX  FUGHT  TIME  tow  mis6_chait2] 

♦define  ATGM.TURN.FACTOR  tow_mi88_d»rl3I 

/V 

*  The  folloMnng  terms  set  the  order  of  the  polynomials  used  to  determine 

*  the  ^leed  or  cosine  of  the  maximum  allowed  turn  rate  of  the  missile 

*  at  any  point  in  time. 

/V 

♦define  TOW  BURN  SPEED  DEG  tow  miss4X>ly_degI0] 

♦define  TOW.COASf  SPEe5  DEG  tow  miss_poly_degll] 

♦define  TOW_BURN_TURN_DEG  tow_mis8_poIy_degI2J 
♦define  TOW_OOAST_TURN_DEG  tow_mi88_poly_d^3J 

/V 

*  Tow  missile  characteristic  parameters  initialized  to  default  values. 

/V 

static  REAL  tow  miss  chaifS] « 

{ 

24A  /* ticks (1.6 sec)*/ 
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268J5,  /•ticks (17.89 sec) V 

200.00,  /•  ticks -cos  of  max  turn  >  1.0  beyoiul  this  point*/ 

0.9,  /*  ATGM  turn  factor  for  wider  turning  capability  */ 

ao 

1; 

/•/ 

*  The  following  terms  set  the  order  of  the  polyncnnials  used  to  determine 

*  the  qxedaiKl  turn  of  the  missile  at  any  point  in  time. 

/V 

static  int  tow  miss  poly  deg[5]  = 

( 

2,  /*  Speed  before  motor  burnout.*/ 

3,  /*  Speed  after  motor  burnout*/ 

1,  /*  Cosine  of  max  turn  before  burnout*/ 

3,  /*  Cosine  of  max  turn  after  burnout  */ 

0  /*  not  used.  */ 

}; 

/*/ 

*  Coefficients  for  ttte^jeed  polynomial  before  motor  burnout  initialized  to 

*  default  values. 

/V 

static  REAL  tow_bum_speed_ooefiI5]  = 

4.466666667,  /•  a_0  -  m/tick  ( 67 Si  m/sec)  */ 

1 J22103405,  /*  a_l  -  m/tick**2  (274.9732662  m/8ec-2)  */ 

-0.024532086,  /*a_2-m/tick**3  (-82.7057910  m/sec**3)*/ 

0.0, 

0.0 

}; 


/•/ 

*  Coefficients  for  the  ^)eed  polynomial  after  motor  burnout  initialized  to 

*  default  values. 

/V 


static  REAL  tow_coast  speed  coeffl5] « 

{ 


21.81905383, 
-9.5382019fr-2, 
24378222e-4, 
-2-631111  le-7, 
0/) 


/*a_0- m/tick  (327.2858074  m/sec)  */ 

/*  a_l  -  m/tick**2  (-21.4609544  m/sec**2)  */ 
/*a_2-m/tick**3(  0.8227650  m/setr3)  */ 
/*  a_3  -  m/tick*»4  (  -Oj0133200  m/sec**4)  */ 


); 


/*/ 

*  Coefficients  for  the  cosine  of  max  turn  polynomials  before  nnotor  burnout 

*  The  structure  _MAX_COS_OOEFF_  is  used  to  store  the  values  for  the  turn 

*  sidewa3rs,  up,  and  down  polyrromials  along  with  their  order. 


-F-4- 


Appendix  F>  Source  Code  Listing  lor  inl8s.atgin.c 


/V 


static  MAX  CX36  COEFFtow  bum  turn  ooeff^ 

{ 

I,  /•  Order  of  the  polynomials.  •/ 

/•  Sidewards  turn.  •/ 
0.999976868652,  /•a_0-cos<tad)/tick*/ 
-35933955e-7  /*a  f -  oos(rad)/tick*^  •/ 

1, 

{ 

/•  Upwards  turn.  •/ 

0.999960667258,  /‘a  0 - cos(rad)/tick •/ 
-3.1492328e^  /'a  1  -  co8(rad)/tick*^  •/ 

J, 

{ 

/*  Downwards  turn.  •/ 
0.999978909989,  /*  a_0  -  cos(iad)/tick  •/ 
-7A194991e^  /•  a_l  -  oos(rad)/tick^  */ 

} 


/V 

•  Coefficients  for  the  cosine  of  max  turn  pol)momials  after  motor  burnout 


static  MAX_COS_COEFF  tow_coast  turn  coei^s 
(  "  ■ 

3,  /•  Order  of  the  polynomials.  •/ 

/•  Sidewards  turn.  •/ 

0.999951 12518,  /•  a.O  -  cos(rad)/tick  •/ 
8.96333e-7,  /*  a_l  -  co9(rad)/tickT*2  •/ 

-5.995375e-9,  /•  a_2  -  co8(rad)/tick^  V 
1.162225e-ll  /•a_3-cos(iad)/tick^4V 

), 

{ 

I*  Upwards  turn.  V 
0.9998498495,  /*  a_0  -  cos(rad)/tick  V 
1.657779^6,  /•  a_l  -  oosfradl/tick^  •/ 

-8231861e-9,  /*  a_2  -  cos(rad)/tick^  V 
lJ81832e-ll  /•a_3-cos(rad)/ticlc^4V 

), 

{ 

/•  Downwards  turn.  •/ 
0.9999714014,  /•  a_0  -  co6(rad)/tick  •/ 

3  J82077e-7,  /•  a_l  -  oos(rad)/tick^  •/ 
-1.601259e-9,  /*  a_2  -  cosCradl/tkk^  V 
2.623014e-12  /*  a_3  -  co8(rad)/tick*»4  V 

) 

}; 
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/V 

*  Declare  static  functions. 

/V 

static  void  nussile_atgin_stop  0; 


ROUTINE:  inissile_atgin_init  • 

PARAMETERS:  tptr  -  a  pointer  to  the  TOW  to  be 
initialized.  * 

RETURNS:  none  • 

PURPOSE:  This  routine  initializes  the  stateof  the  * 

missile  to  indicate  that  it  is  available  and  * 
sets  values  that  never  change.  * 

. . . 


void  missile  atgm  init(tptr) 

ATGM  MISSILE*^; 

{ 

int  i; 

int  data.tmpjnt; 
float  data.tmp; 
char  descript(641; 

FILE  -fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  miss_atg;mx  READ  FROM  FILE  V 

fp  =  fopen("/simnet/data/ms_at_chxl","r"); 

if(fp=NULL){ 

fprintfCstderr,  "Cannot  open  /simnet/data/ms_at_ch.d\n”); 
exitO; 

) 

rewind(fp); 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 
tow_miss_char(i]  =  data.tmp; 

%ets(descript,  64,  fp); 

/•  printfrtow_miss_char(%3d)  is%l  1 3f  %8",  i,  tow_miss_char{i], 

descript);  •/ 

++i; 

} 

fcloseffp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  miss_atgm.c  READ  FROM  FILE  •/ 
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/•  DEFAULT  BURN  SPEED  DATA  FOR  miss_atgin.c  READ  FROM  FILE  •/ 

fp  =  fopen(”/siinnet/data/ins_at  bsxlVr"); 
if(fp=NULL){ 

fprintfistderr,  "Caiumt  open  /siinnet/data/ins_at_bsxl\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fecanf(^,"%d",  &data_tmpjnt); 

T0W_BURN_SPEED_DEG  =  data_tmp_int; 
fgetsfdesciipt,  64,  fp); 

/*  printf(”tow_iniss_poly_deg(0)  is%3d  %s",  TOW_BURN_SPEED_DEG, 
descript);  */ 

/•  Read  array  data  •/ 
i=0; 

while(fecanf(fp,"%r,  &daU_tmp)  !*=  EOF){ 
tow_l>um_speed_coeffIi]  =  data.tmp; 
fgetsfdescri^,  64,  fp); 

/•  printfrtow_bum_^jeedjCoeff(%3d)  is%l  13f  %s",  i, 
towjmm_speed_ooefflil,  descript);  •/ 

•*-+i; 

) 

fdose(^); 

/*  END  DEFAULT  BURN  SPEED  DATA  FOR  iniss_atgin.c  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  SPEED  DATA  FOR  inis8_atgin-c  READ  FROM  FILE  •/ 

fp  =  fopen("/simnet/dala/ms  at  cs.d","r"); 
if(fp=NULL)l 

fprintffstderr,  "Caimot  open  /siinnet/data/ms_at_cs.d\n"); 
exitO; 

} 

rewiiKl(^); 

/•  Read  degree  of  polynomial  •/ 

fscanf(fp,"%d",  &data_tmp  int); 

TOW_COAST_SPEED_DEG  =  data.tmpjnt; 
fgetsfdesoipt,  64,  fjp); 

/•  printf("tow_miss_poly_deg(l )  is%3d  %s",  TOW_COAST_SPEED_DEG, 
descript);  •/ 

/*  Read  array  data  */ 
i=0; 
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while(fscanf(fp,'’%f &data_tmp)  !=  EOF)( 
tow_ooast_speed_ooeffli]  =  data.tn^; 
fgets(descript,  64,  fp); 

/*  printfrtow_coast_speed_coeff(%3d)  is%l  1 3f  %s",  i, 

tow_coast_speed_ooeff[i],  descript);  */ 

-H-i; 

1 

fdose(fp); 

/•  END  DEFAULT  COAST  SPEED  DATA  FOR  miss.atgiiu:  READ  FROM  FILE  •/ 

/•  DEFAULT  BURN  TURN  DATA  FOR  miss.atgnu;  READ  FROM  FILE  •/ 

fp  =  fbpen("/siinnet/data/nis  at  bt.d",V); 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /sinmet/data/ms_at_btxi\n"); 
odtO; 

1 

rewind(^); 

/*  Read  degree  of  polynomial  */ 

fiscanf(^,"%d”,  4cdata  tmp  int); 

TOW_BURN_TURN_DEG  «  data.tmp.int; 
tow jMim_tumjcoeff4ieg  =  data.tmp.int; 

%ets(descript,  64,  fp); 

/•  printf<"tow.miss_poly.deg(2)  ls%3d  %s",  TOW.BURN.TURN.DEG, 
descript);  •/ 

/•  Read  array  data  •/ 

for  (i=0;  i  <=  data.tmp.int;  i++)  { 
fscanf(^,"%r,  &data.tmp); 
tow.burn_tum.ooeff.side.ooeffli]  =  data.tmp; 

%ets(descript,  64,  fp); 

/•  printfrtow.bum.tum.coeff  jide_coeff(%3d)  i5%l  1 3f  %s",  i, 

tow.bum.tum.coeffjide.coeffliJ,  descript);  •/ 


for  (i*0;  i  <=  data.tmp.int;  i++)  { 
fscanf(fp,"%r,  &data.tmp); 
tow.bum.tum.coeff.up.coefflil  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/•  printf("tow.bum_tum.coeff .up_coeff(%3d)  is%l  1 3f  %s",  i, 

tow.bum  turn  coeff.up  coeffji],  descript);  •/ 

) 

for  (i=0;  i  <=  data.tmp.int;  i++)  ( 
f8canf(fp,"%r,  &data.tmp); 
low.bum.tum.coeff.down.coeffli]  =  data.tmp; 
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fgetsfdescript,  64,  fp); 

/•  printfrtow_bum_tum_coeffxlown_coeff(%3d)  is%113f  %s",  i, 
tow_bum  turn  coeffxiown  coeffji],  descript);  */ 

) 

fcloseffp); 

/•  END  DEFAULT  BURN  TURN  DATA  FOR  iniss_atgm.c  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  TURN  DATA  FOR  miss.a^c  READ  FROM  FILE  */ 

fp  =  f6pen("/simnet/data/ms_at_ct.d","*‘”); 

if(fp=NULL)( 

fprintffstderr,  “Cannot  open  /simnet/data/ms_at_ctd\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data  tmp.int); 

TOW_COAST_TURN_DEG  =  data_tmp_int; 

tow_coast_tum_ooeffxleg  =  data.tmpjnt; 

fgetsfdescript,  64,  fp); 

/•  printf(“tow_iniss_poly_deg(3)  is%3d  %s",  TOW_COAST_TURN_DEG, 
descript);  •/ 

/•  Read  array  data  *! 

for  (i=0;  i  <=  data_tmp_int;  i++)  { 
f^nf(fp,"%r,  4cdata_tmp); 
tow_ooast_tum_ooeff.side_coeff[i]  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/•  printfrtow_coast_tum_coeff.side_coefft%3d)  is%113f  %s",  i, 

tow  coast  turn  coeff.side  coeffli],  descript);  */ 

) 

for  (i=0;  i  <=  data_tmp_int;  i-H-)  { 
fscanf(fp,"%r,  &data_tmp); 
tow_ooast_tum_coeff.up_coeffli]  =  data_tmp; 
fgetsCdescript,  64,  fp); 

/•  printf("tow_ooast_tum_coeff.up_coeff(%3d)  is%113f  %s",  i, 

tow  coast  turn  coeff.up  c^fti],  descript);  */ 

) 

for  (i=0;  i  <s  data_tmp_int;  i-M-)  ( 
facead(fp,''%F',  4cdata_tmp); 
tow_ooast_tum_coeffxiown_coefflij  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/•  printfrtow_coast_tum_coeff.down_corff(%3d)  is%l  1 3f  %s",  i, 

tow  coast  turn  coeff.down  ooeffli],  descript);  */ 

) 
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fclose(fp); 

/•  END  DEFAULT  COAST  TURN  DATA  FOR  inis5_atgm.c  READ  FROM  FILE  •/ 
tptr->mptr.state  =  FALSE; 

tptr->mptr.inax_fUght_tinie  =  TOW_MAX_nJGHT_TIME; 
tptr->mptr.nux_tum_directions  =  3; 

/** . . . I 

/*  change  turn  polynomial  coefficients  so  missile  has  larger  */ 

/*  max  turn  an^e.  Since  Ph  determines  when  a  vehicle  should  be  V 
/*  impacted,  turn  rates  should  not  effect  missile  effectiveness  */ 

. . . I 

for  (i=0;  i<tow  bum  turn  coeff.deg;  i-H-) 

{ 

tow_bum_tum_coeff.side_coeffli]  *=  ATGM_TURN_FACTOR; 
tow_bum_tum_coeff.up_coeffli]  *=  ATGM_fURN_FACTOR; 
tow  bum_tum  coeff.down  coeffji]  •=  ATGM_TU^  FACTOR; 

1 

for  (i=0;  i<tow_coast_tum_ooeffxleg;  i-H-) 

tow_coast_tum_ooeff.side_coeffli]  •=  ATGM_TURN_FACTOR; 
tow_coast_tum_coeff.up_coefflii  •=  ATGM_fURN_FACTOR; 
tow_coast_tum_coeffxiown_coeifli]  •=  ATOM  TU^  FACTOR; 

) 


'  ROUTINE;  missile_atgm_fire  • 

'  PARAMETERS:  tptr  -  A  pointer  to  the  TOW  missile  to  be 
fired.  • 

PARAMETERS:  lauiKh_point  -  The  location  in  world 
coordinates  that  the  missile  is  * 
lauiKhed  from.  * 

loc_sight_to_world  -  The  sight  to  world  * 

transformation  matrix  used  * 
only  in  tfiis  routine.  * 
laurKh_speed  •  The  speed  of  the  laurrch  * 

platform  (assumed  to  be  in  the  * 
direction  of -the  missUe).  * 

tube*-  The  tube  the  missile  was  laimched  from.  * 
RETURNS:  rrorw  * 

PURPOSE:  This  routine  performs  the  furKtions  * 
specifically  related  to  the  firing  of  a  TOW  * 
mis^e.  * 


ATGM_MISSILE  *missile_atgm_fire  (tptr,  lautKh_point,  loc_sight_to_world. 


-F-10- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  F  -  Source  Code  Liating  for  miaa_atgm.c 


launch.speed,  tube,  try_to_hit_target,  taigetjd,  target.loc) 
ATGM.MISSILE  •tptr; 

VECTOR  launch_point; 

T_MATRIX  loc_sight_to_world; 

REAL  launch_speed; 
int  tube; 

int  tiy_to_hit_target; 

VehiclelD  targeted; 

VECTOR  target  loc; 

{ 

MISSILE  *fnptr;  /*  Pointer  to  the  particular  geireric  missile 
pointed  at  by  _tptr_.  •/ 

/V 

*  Find  irq?tr_. 

/•/ 

mptr  =  4:(tptr->inptr); 

/V 

*  Set  the  iititial  time,  location,  orientation,  and  speed  of  the  generic 

*  missile. 

ii^>tr->time  =  Oi); 

vecjcopy  (lauiKii_point,  mptr->Iocation); 
mat.copy  Goc_sight_to_world,  mptr->orientation); 
ii^->speed  =  missiIe_utiI_eral_poly  (TOW_BURN_SPEED_DEG, 
tow_bum_speed_coeff,  0.0)  +  laundi.speed; 
mptr->init_speed  s  lauiKh  speed; 

/V 

*  Set  the  wire  as  uiKut. 

/V 

tptr->wire  is_cut  =  FALSE; 

/V 

*  if  we  are  trying  to  hit  a  target  then  save  the  taigetjd.  Otherwise, 

*  save  the  target  location  (some  point  in  q>ace) 

/V 

tptr->try_to_hit_target  =  try_to_hit_target; 
if  (try_to_hit_target) 
tptr->target_id  =  target.id; 
else 
{ 

vec_copy(targetJoc,  tptr->target  location); 

1 


/V 

*  Tell  the  rest  of  the  world  about  the  firing  of  tire  missile.  If  this 

*  carmot  be  dorre,  return. 

/V 

if  (!missile_util_oonun_fire_missile  (mptr,  MSL_TYPE_MISSILE, 

rrrap_get_anuix)_entry_from_tretwork_type  (munition_US_TOW), 
munition_US_TOW,  murution_US_Tdw,  NULL,  targetUni^wn, 
objectlrrdevant,  tube)) 
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return; 

/V 

*  If  all  was  successful,  set  dte  missile  state  to  TRUE  and  return. 

/V 

inptr->state  »  TRUE; 
return; 

) 

/*■*■*****“*■■*■**■ . . . . 

*  ROUTINE:  inissile_atgm_fly  • 

*  PARAMETERS:  tptr  -  A  pointer  to  the  TOW  missile  that  is  to  * 

*  be  flown  out  • 

*  sightjocation  -  The  location  in  world  * 

*  coordinates  of  the  gunner's  * 

*  sight  • 

*  loc_sight_to_worid  -  The  sight  to  world  • 

*  transformation  matrix  used  * 

*  only  in  this  routine.  * 

*  RETURNS:  none  • 

*  PURPOSE:  This  routine  performs  the  functions  * 

*  specifically  related  to  the  flying  a  TOW 

*  missile.  • 

*  » 

. . . . / 

void  missUe.atgm.fly  (tptr,  sightjocation,  loc  «^t  to  world) 
ATGM_MISSILE*tptr; 

VECIOk  sightjocation; 

T_MATRIX  loc_si^t_to  world; 

( 

MISSILE  *mptr;  /*  A  pointer  to  the  generic  aspects  of  _tptr_.*/ 

REAL  time;  /•  The  current  time  after  launch  (ticks).  •/ 
VehicleAppearanceVariant  •target_vehicle; 

/*  pointer  to  target  vehicles  appearance  padeet  */ 

VECTOR  taiget_plus_offset;  /*  this  vector  gives  a  targets  location 
with  an  appropriate  off^  for  ground 
vehs*/ 

static  VECTOR  ground_veh_offset  =  (0.0,  OX),  IX)}; 

/*  offset  to  aim  missile  at  for  ground  vehs  */ 

/•/ 

*  Set  _mptr_  and  _time_.  These  values  are  created  mostly  for  iiKieased 

*  readablity. 

/•/ 

mptr  =  &<tptr->mptr); 
time  s  mptr'>time; 

/•/ 

*  If  the  missile  has  reached  its  maximum  range  (trot  the  rruodmum  distance 

*  its  allowed  to  fly),  cut  the  vriie. 

/V 


-F-12- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  F-  Source  Code  Listing  for  inias_atgm.c 

if  ((time  >  TOW_RANGE_LIMIT_nME)  &A  !tptr->wire_is_cut) 
tptr->wire_is_cut  =  TRUE; 

/V 

*  Find  the  current  missile  qxed  aitd  the  cosines  of  the  maximiun  allowed  turn 

*  an^es  in  each  direction.  The  equations  used  are  different  before  and 

*  after  motor  buiTMut. 

/V 

if  (time  <  TOW.BURNOUT  TIME) 

mptr->speed  =  missile_utiI_eval_poIy  (TOW_BURN_SPEED_DEG, 
tow_bum_speed_coeff,  time)  +  mptr->init_speed; 
missile  util_eval  cos_coeff(iiq>tr,&tow_bum_tum_coeff,time); 

1 

else 

{ 

mptr->speed  =  missile_util_eval_poly  (TOW_COAST_SPEED_DEG, 
tow_ooast_speed_coeff,  time)  +  mptr->init_speed; 
missile  util  eval  cos_coeff  (mptr,  &tow_coast_tum_coeff,  time); 

1 

/V 

*  If  the  wire  has  been  cut,  set  the  ground  as  the  target;  otherwise, 

*  find  a  target  point  which  will  fly  the  missile  along  the  gunner's  line  of 

*  sight  This  targeting  scheme  takes  into  account  the  errors  introduced  by 

*  attempting  to  guide  the  missile  in  a  canted  position. 

/•/ 

if  (tptr->wire  is  cut) 

{ 

piintfCXI"); 

missile  taiget_groui^  (mptr); 

) 

else 

I 

/*  if  operator  has  successfully  desigiuted  a  target  then 

*  try_to_hit_tatget  will  be  true.  Therefore,  we  search  the 

*  list  of  targets  for  the  vehiclelD  and  fly  missile  to  that 

*  location. 

*  if  try_to_hit_target  is  false  then  target  point  is  passed 

*  and  we  should  fly  die  missile  to  the  targk_point. 

if  tiy_to_hit_tatget  is  true  arul  we  can't  find  the 

*  vehicle  id  in  the  rva  list  then  the  vehicle  has  dropped  off  the 

*  net  and  we  fly  the  missile  into  the  ground. 

* 

V 

if(tptr->try  to  hit  target) 

{ 

if  ((target_vehicle  =  rva_get  veh  app  pkt  (4c(tptr->target_id)))  != 
NULL) 

{ 

/ . 

if  the  target  is  a  ground  vehicle  we  need  to  guide  */ 

/*  the  ntissile  to  a  point  other  than  the  center  of  titass  */ 
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/*  for  SIMNET  ground  vehicles  the  center  of  mass  is  on  */ 

/*  the  ground.  This  causes  missiles  to  fly  into  the  V 
/•  ground  •/ 

if  ((taiget_vehicle'>guises.distinguished  A 
(objectDomainMask  I  vehideEnvironmentMask))  ~ 
(objectDomainVehicIe  I  vehicIeEnvironmentGround)) 

{ 

vec_add  (taiget_vehicle->location,  ground_vd\_off^ 
target4>Ius_oflset); 

1 

else 

{ 

vec  copy  (taiget  vehide->location,  taiget_plus_o^et); 

1 

missile  target_poinKmptr,  target^Ius.oflset); 

1 

else 

{ 

/•pTOtf("g");V 

missile  taiget  unguided  (mptr); 

1 

) 

else 

( 

/•printf("p");V 

. . . / 

/*  guide  the  missile  toward  a  point  for  5  ticks,  then  just  V 
/*  fly  it  straiglht  ahead.  With  the  wide  turning  radius  */ 

/*  missile  will  fly  around  in  drcles  otherwise  */ 

if  (time  <  5f)) 

mis8ile_taiget_poinKmptr,  tptr->taiget_location); 
else 

missile  target  unguided  (mptr); 

) 

) 

/V 

*  Try  to  actually  fly  the  missile.  If  this  fails  stop  the  missile  altogether 

*  and  return. 

/V 

ifdmissile  util  flyout  (mptr)) 

( 

missile_atgm_stop  (tptr); 
return; 

) 

dse 

{ 

/V 

*  If  the  missile  successfully  flew,  check  for  an  intersection  with  the 
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*  ground  or  a  vehicle.  If  one  is  fouitd,  blow  up  the  missUe,  stop  its 

*  fl)^ut  and  return. 

/V 

if  (missile  util  comm_check  intersection  (mptr,  MSL  TYPE  MISSILE)) 

missile_util_conun_check_detonate  (mptr,  MSL_TYPE_MISSILE); 

missile_atgm_stop  (tptr); 

return; 

) 

) 

/V 

*  If  die  missile  is  to  continue  to  fly,  return. 

/V 

return; 

) 


ROUTINE:  missiIe_atgm_stop  • 

PARAMETERS:  tptr  •  A  pointer  to  the  TOW  missile  that  is  to  * 
be  stopped.  * 

RETURNS:  none  * 

PURPOSE:  This  routine  causes  all  concerned  to  forget  * 
about  the  missile.  It  should  be  called  when  * 
the  flyout  of  any  TOW  missile  is  stopped  * 

(whether  or  not  it  has  exploded).  Note  that  * 
this  routine  can  only  be  called  within  this  * 
module.  * 

. . / 


static  void  missile  atgm  stop  (tptr) 

ATOM  MISSILE  •tptr; 

I 

/•/ 

•  Tell  the  world  to  stop  wonying  about  this  missile  then  release  the 

•  memory  for  use  by  other  missiles. 

/•/ 

missile_util_oomm_stop_nussile  (&(tptr->mptr),  MSL_TYPE_MISSILE); 
tptr->mptr.state  =  FALSE; 

1 


•  ROUTINE:  missile_atgm_cut_wire  • 

•PARAMETERS:  tptr  •  A  pointer  to  the  TOW  iiussile  whose  wire  • 

•  is  to  be  cut.  • 

•  RETURNS:  none  • 

•  PURPOSE:  This  routitte  sets  a  flag  iiKlicating  that  the  • 

•  guidaitce  wire  of  this  missile  is  cut  • 

•  * 
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. . 

vcrid  missile  atgm  cut  wire  (tptr) 

ATGM  MISSILE ’iptr; 

{ 

/V 

*  If  the  the  wire  is  not  already  cut,  cut  the  wire. 

/•/ 

if  (!tptr->wire_is_cut) 
tptr->wire  is  cuts  TRUE; 

) 
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The  following  appendix  contains  the  source  code  listing  for 
miss.atgm.c  for  convenience  in  document  maintenance  and 
understanding  of  the  CSU. 
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/•  SHeader  /a3/adst-cm/RWA/sinuiet/vehide/libsrc/libinis8Ue/RCS/miss_heUfrx,v 
1.1 1992/09/30 16:3952  cm-adst  Exp  $  V 

/• 

*$Log:nuss  hellfrx,v$ 

•  Revision  l.i  1992/09/30  16:39-.52  cm-adst 

•  Initial  Version 

» 

V 

static  duir  RCS  IDO  =  "SHeaden  /a3/adst-cm/RWA/siinnet/vehide/libsrc/Iibmis5il 
e/RCS/iniss_heUfr.c,v  1.1 1992/09/30 165952  cm-adst  Exp  $"; 

/”■*■*■***** . . . 

• 

*  Revisions: 

* 

•  Version  Date  Author  Title  SP/CR  Number 


*  12  10/23/92  R.  Branson  Data  Hie  Initiali- 

*  zation 

*  15  10/30/92  R.  Branson  Added  pathname  to  data 

*  directory 

*  1.4  11/25/92  R.  Branson  Changed  %i  to  %d 

. . . . . . / 

. . 

SP/CR  No.  Description  of  Modification 

Hard  coded  defines  changed  to  array  dements. 
Characteristics/parameter  data  array  added. 

Degree  of  polyitomial  data  array  added. 

Added  file  re^  for  hellfire  charactoristics/ 
parameters,  bum  speed  coeffidents,  coast  speed 
coeffidents,  and  time-of-flight  coefBdents. 

Added  "/simnet/data/"  to  each  data  file  pathname. 

. 


•  HLE:  miss.hellfrx  • 

•  AUTHOR:  Bryant  CoUard  • 

»  MAINTAINER:  Bryant  Collard  * 

•  PURPOSE:  This  file  contains  routines  whidi  fly  out  a  * 

•  missile  with  the  charaderistics  of  a  HELLFIRE  * 

•  missile.  • 

•HISTORY:  ll/25/88biyant:  Creation  • 
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4/24/89  bryant:  Added  static  nremory  allocation  * 

08/07/90  bryant:  NIU  librva  moditications.  * 

08/09/90  kris:  corrected  flight  coefficients  • 

Copyright  (c)  1988  BBN  Systems  arrd  Technologies,  Itk.  * 

All  rights  reserved.  * 

. . . 


#irKlude  "stdio  Jr” 

#irKlude  ”math.h" 

#include  "sim_types.h" 

#include  ”sim_dfns.h” 

#itKlude  ”basic.h" 

#irKlude  "mun_typeJr" 

#irKlude  Tibrruitrix.h" 
tinclude  ”librtuip.h" 

/•— rreed  Range  Squared  irrfo —•/ 

«include  "UbhulLh” 

#mclude  "libkinJi” 

/• - V 

tirrclude  ”miss_hellfr.h" 

#include  "libmissUe.h" 

#include  "Ubmiss_dfn.h" 

#include  Tibmissjoc  Ji" 

/V 

*  Define  missile  characteristics. 

/•/ 

#defirre  HELLFIRE_ARM_nME  hellfr_missjchar{  0) 
#defifre  HELLhkE_B URN OUT_TTME  hellfr  truss  chaj{  IJ 
♦define  HELLFIRE_MAX_FUGHT_TIME  heUfr,miM_char(  2] 
♦defirte  SPEED_0  hellfr_miss_charf  3] 

♦defirre  THETA_0  hellfr  miss  char[4] 

/V 

*  Set  paranreters  which  will  control  fligjtt  trajectory  behavior. 

/V 


♦define  SIN_UNCUIDE 
♦define  COS.UNGUTOE 
♦define  SIN  CXIMB 
♦define  COS  CLIMB 
♦define  SIN  LOCK 
♦defineCOS  LOCK 
♦define  COS.TERM 
♦define  COS.LOSE 

/V 


hellfr_rtuss_char{  51 
hellfr_miss_duui  6] 
hellfr_miss_char(  71 
hellfr_mis5_char(  81 
hellfr_rTuss_char(  91 
hellfr_miss_char{10l 
hellfr_miss_char(l  1 1 
hellfr_miss_char[  121 
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*  The  following  terms  set  the  order  of  the  polynomials  used  to  determine 

*  the  speed  or  cosine  of  the  maximtim  allowed  turn  rate  of  Ote  missile 

*  at  any  point  in  time. 

/V 

#define  HELLFIRE_TOF_DEG  hellfr_miss_poly_degI  01 
«define  HELLFIRE_BURN_SPEED_DEG  hellfr_miss_poly_degI  1] 

#define  HELLFIRE_COASf_SPEED_DEG  hellfr_miss_poly_d^  2] 

/V 

*  Hellfire  missile  characteristic  parameters  initialized  to  default  values. 

/V 

static  REAL  hdlfr  miss_char(15]  = 

( 


20.0,  /• 

ticks  (13  sec)  */ 

36/),  /• 

ticks  (2.4  sec)  */ 

540.0,  /• 

^  ticks  (36  sec)  */ 

30.95953043, 

0.046542113, 

/• max_speed  */ 

0.069756474, 

/*  sin  4.0  deg  */ 

0.997564050, 

/•cos  4.0  deg  •/ 

0.004072424, 

/•sin  33  deg  •/ 

a999991708. 

/•  cos  33  deg  •/ 

0.156434465, 

/•sin  9.0  deg  •/ 

0.987688341, 

/•  cos  9/)  deg  •/ 

0.241921896, 

/•  cos  76/)  deg  •/ 

0.939692621, 

0.0, 

0.0 

/•cos 20/) deg  •/ 

/•/ 

*  Hellfire  missile  pol)momial  degree  initialized  to  default  values. 
/•/ 

static  int  hellfr  miss  poly  d^  3]  = 

{ 

4,  /•  tof  poly  degree  •/ 

3,  /•  bum  speed  poly  degree  •/ 

5  /•  coast  qxed  poly  degree  •/ 

); 


/•/ 

*  Coefficients  for  the  TOF  ]x>lynomial  initialized  to  default  values. 

/V 

static  REAL  hdlfire  tof  coeffilO]  = 

{ 

18.0,  /'a.O  tick  •//•  1.2 seconds*/ 

3.1461816e-2,  7*a_l  tick/meter  */ 

3.1921274e-6,  /•a_2  tick/ineter^2  */ 

33260413e-10,  /•a_3  tick/meter^3  */ 

-2.8469594e-14,  /*  a_4  tick/meter''.4  */ 

0.0,  /*a_5  tick/meter^5  •/ 
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0.0,  /•a_6  tick/nieter^  •/ 

0.0,  /•  a_7  tick/meter^7  •/ 

0.0,  /’a.S  tick/meter^S*/ 

0.0  /‘a  9  tick/meter^9 •/ 

); 

/V 

*  Coefficients  for  the  ^jeed  polynonual  before  motor  burnout  initialized  to 

*  default  values. 

/V 

static  REAL  hdlfire_bum  speed  coeffJlOl  = 

{ 

2.0044395e-2,  /‘a  0 -meters  V 

6.7384206e-l,  /•a_l-m/tick  •/ 

9A0077Dle-3,  /*  a_2  -  m/tick''2  V 

-1.6782227e-4,  /•  a_3  -  m/tick'^3  V 

0.0,  /•  a  4  -  m/tickN  •/ 

0.0,  /•a_5-m/tick''5V 

0.0,  /‘a  6 - m/tick'^6 •/ 

0.0,  /‘a  7-m/tick''7*/ 

OA  /’a  8-m/tick^8V 

OX)  /•a_9.m/tick'^9V 

); 

/V 

*  Coefficients  for  the  ^peed  polynomial  after  motor  burnout  initialized  to 

*  default  values. 

/*/ 

static  REAL  hdltire.coast  speed.coeffJlO]  = 

{ 

4.2738447e+l,  /’a  0-n»eters  •/ 

-4.1048613e-l,  /’a'l-m/tick  V 
2.6023604e-3,  /•  a  2  -  m/tick''2  V 

-8.4870417fr«,  /’a  3-m/tick^3V 

13322932e-8,  /•  a  4  -  m/tick''4  V 

-7.9542005e-12,  /•  a_5  -  m/tick^'S  •/ 

OX),  /•  a_6  -  m/tick'^b  •/ 

OX),  /'a  7-m/tick''7V 

OX),  /'a  8-m/tick^8V 

OX)  /•a  9-m/tick^9V 


static  ObjectType  hellfire_ainmo_type  =  munition_U5_Hdlfire; 
static  REAL 

max.iange.Umit,  /•  ( MISSILE_US_MAX_RANGE_LIMIT  1  V 
max_range_squared,  /*  I  MISSILE  US  MAX  RANGE  LIMIT  ^  2  ]  •/ 

speed.factor;  /•  [  MISSILE_US_SPEED_FACIOR  J  •/ 

/V 

*  Declare  static  functions. 

/•/ 
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static  void  missile_hdlfire_stop  0; 


ROUTINE:  missile_hellfire_init  • 

PARAMETERS:  mptr  -  a  pointer  to  the  HELLFIRE  to  be 
initialize.  * 

RETURNS:  none  * 

PURPOSE:  This  routine  initializes '.testate  of  the  * 

missile  to  indicate  that  it  is  availaUeaitd  * 
sets  values  that  never  change.  * 

. . . . . / 


void  missile.hellfirejnit  (mptr) 

MISSILE  •mptr; 

{ 

int  i; 

int  data_tmp_int; 
float  data_tmp; 
char  descript[64]; 

FILE  *ip; 

/•  DEFAULT  CHARACTERISTIC  DATA  FOR  miss_hellfr.c  READ  FROM  FILE  •/ 
fp  =  fbpenC/simnet/data/ms  hf  ch.d'V’r^); 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/ms_hf_ch.d\n"); 
cxitO; 

) 

rewind(^); 

/•  Read  array  data  •/ 
i=0; 

while(fscanf(fp,"%r,  &data  tmp)!=EOF) 

{ 

hellfr_nuss_char(i]  =  data_tmp; 
fgetsfdescript,  64,  fp); 

/•  printf("hellfr_miss_char(%3d)  is%113f  %s",  i, 

hellfr_miss_char[i],  descript);  •/ 

-H-i; 

) 

fcloseffp); 

/*  END  DEFAULT  CHARACTERISTIC  DATA  FOR  miss_heUfrx  READ  FROM  FILE  •  ' 

/•  DEFAULT  TIME-OF-FUGHT  DATA  FOR  miss.hellfrx  READ  FROM  FILE  •/ 
fp  =  fopen("/simnet/data/ms  hf  tf.d","r"); 
if(fp=NULL){ 

fprintf(stderr,  "Cannot  open  /simnet/data/ms_hf_tf.d\n"); 
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exitO; 

) 

rewind(fp); 

/•  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data_tmp_int); 
hellfr_miss_poly_deg(01  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

/*  printf("hellfr_miss_poly_deg(0)  is%3d  %s", 

hellfr_iniss_poly_d^O],  descript);  •/ 

/*  Read  array  data  */ 

i=0; 

while(fscanf(fp,"%f Adata.tmp)  !=  EOF) 

{ 

hellfire_tof_coeffIil  =  data_tmp; 
fgetsfdescripL  64,  fp); 

/•  printfrheUfire_tof.coeff(%3d)is%ll3f%s",i, 

helldre_tof_oo^Ii],  descript);  •/ 


fcloseffp); 

/•  END  DEFAULT  TIME-OF-FUGHT  DATA  FOR  iniss_hellfr.c  READ  FROM  FILE  •/ 

/•  DEFAULT  BURN  SPEED  DATA  FOR  miss_hellfrx  READ  FRC»d  FILE  •/ 
fp  =  fopenC/siinnet/data/ms.hf  bs.d",V); 
if(fp=NULL)( 

fprintffstderr,  "Carmotopen  /siinnet/data/ms_hf_bs.d\n"); 
exitO; 

) 

rewiiulffp); 

/*  Read  degree  of  polynomial  */ 

fscarrf(fp,"%d",  &data_tmp_int); 
hellfr_miss_poly_deg(l]  =  data_tmp_int; 
fgetsfdesoipt,  64,  fp); 

/•  printf("heUfr_miss_poly_deg(l)  is%3d  %s", 

hellfr_mis8_poly_d^ll,  descript);  */ 

/*  Read  array  data  */ 

i=0; 

while(fscanf(fp,"%r,  6cdata_tmp)  !=  EOF) 
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{ 

heIlfireJ>um_speed_coeff[i]  =  data.tmp; 
fgets(descript,  (A,  fp); 

/•  printfn)elifire_bum_speed_coeff(%3d)  is%113f  %s",  i, 
henfire_bum_speed_coefifIi],  descript);  •/ 

++i; 

} 

fcloseffp); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  miss.hellfrx  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  SPEED  DATA  FOR  nuss.hellfrx  READ  FROM  FILE  •/ 
fp  =  fopenr/simnet/data/ms  hf  cs^l^V*); 
if(fp=NULL){ 

^nintffstderr,  "Cannot  open  /sininet/data/nns_hf_cs.d\n”); 
exitO; 

1 

rewind(^); 

/*  Read  degree  of  polynomial  */ 

fscanf{fp,"%d",  Adata_tmp_int); 
hellfr_miss_poIy_deg[2]  =  data_tmp_int; 
fgetsfdescripL  64,  fp); 

t*  printf("heUfr_nuss_poly_deg(2)  is%3d  %s", 

hellfr_nus8_poIy_d^2],  descript);  •/ 

I*  Read  array  data  */ 

i=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF) 

heUfire_coast_speedjcoeff{i]  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/•  printfrhellfire_coast_^>eed_coeff(%3d)  is%l  1 3f  %s",  i, 
heUfire_coast_speed_coefflil,  descript);  •/ 

-H-i; 

) 

fclosef^); 

/•  END  DEFAULT  COAST  SPEED  DATA  FOR  miss.hellfrx  READ  FROM  FILE  •/ 
mptr->state  =  FALSE; 

inptr->niax_flight_tiine  =  HELLFIRE_MAX_FLIGHT_TIME; 
n^>tr->max_tum_directions  =  1; 
speed_factor  =  MisSILE_US_SPEED  FACTOR; 
max.iange.limit  =  MISSILE_US_MAX_RANGE_LIMIT; 
inax_ninge_squared  =  max.rangejimit  •  max.range.limit; 
heIlfire_amino_type  =  munition_US_HeIlfire; 
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} 

void  inissUe_heIlfire_set_speed_factoi<  scale.speed ) 

REAL  scale  speed; 

{ 

^)eed  factor  =  scale.qjeed; 

1 

void  nussile_hcllfire_set_max_range_linut(  lin\it_range ) 

REAL  limit  range; 

{ 

inax_range_liinit  =  linut_range; 

max  range  squared  =  max  tange_limit  *  max_range_limit; 

) 

void  missile_hellfire_set_ammo_type(  ammo ) 

OtqectType  ammo; 

{ 

hellfirejammo  type  =  ammo; 

1 

/ . 

•  ROUTINE:  missile_hellfire_calc_tof  • 

•  PARAMETERS:  range  •  Range  to  target.  * 

•RETURNS:  Time  Of  Flight  for  .range  meters  to  target  • 
•PURPOSE:  This  routine  evaluates  the  TOF  poly  and  returns  • 

•  the  tinte  of  flight  for  a  Hellfire  Missile  • 

•  to  fly  range  meters.  • 

. . 


REAL  missile_hellfire_calc_tof(  range ) 

REAL  range; 

{ 

REAL  time; 
tinK  = 

missile_util_eval_jx>iy(  HELLFIRE.TOF.DEG,  hellfire.tof.coeff,  range ); 
retum(  (time  /  speed.factor) ); 

) 

•  ROUTINE:  missile.hellfire.fire  • 

•PARAMETERS:  mptr  -  A  pointer  to  the  HELLFIRE  missQe  that  • 

•  is  to  be  launch^.  • 

•  Iaundi4x>int  -  The  location  in  world  • 

•  ooordirutes  that  the  missile  is  * 

•  launched  froriL  • 

•  launch.to.world  -  The  transformation  matrix  of  • 

•  the  launch  platform  to  the  • 

•  world.  • 

•  laurtdi.speed  -  The  speed  of  the  laimch  • 
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*  platform  (assumed  to  be  in  the  * 

*  direction  of  the  missile).  * 

*  tube  -  The  tube  the  ntissile  was  launched  horn.  * 

*  RETURNS:  none 

*  PURPOSE:  This  routirte  performs  the  functions  * 

*  specifically  related  to  the  firing  of  a  * 

*  Hellfire  missile.  * 

*  « 

. / 

void  nussile_hellfire_fire  (mptr,  Iautv:h_point,  lauiu:h_to_world,  laurwrh.speed, 
tube) 

MISSILE  *mptr; 

VECTOR  launch_point; 

T_MATRIX  lauiKh_to_world; 

REAL  launch_speed; 
inttube; 

{ 

/V 

*  Set  the  initial  time,  location,  orientatiorr,  and  qseed  of  the  generic 

*  missile. 

/V 

#ifdef  rwtdeff 
if(  max.rangejimit  >  0.0 ) 
mptr->max_flight_time  = 

ID  +  missile_hellfire_calc_tof(  max_range_limit ); 

#endif 

mptr->tiine  =  OX); 

vec_copy  (launch_point,  mptr->location); 
mat.copy  Qaunch_to_world,  mptr->orientation); 
iT^>tr->speed  =  launch.^ieed  + 

(speed_factor  •  (missile_util_eval_poly  (HELLFIRE_BURN_SPEED_DEG, 
hellfire  bum  q?eed  coeff, 

0.0)  )); 

mptr->init  speed  =  launch  yccd; 

n 

*  Tell  the  rest  of  the  world  about  the  firing  of  missile.  If  tftis 

*  carmot  be  done,  return. 

/•/ 

if  (!missile_util_ooiiun_fire_missile  (mptr,  MSL_TYPE_MISSILE, 

map_get_ammo_entiy_from_network_type  (hellfire_ammo_type), 
helifire_amino_ty|je,  hdlfire_ainino_tyj3«B,  NULL, 
targetUnknown,  objectirrelevant,  tube)) 
return; 

/•/ 

*  If  all  was  successful,  set  the  missile  state  to  TRUE  and  return. 

/V 

mptr->state  =  TRUE; 
retiun; 

) 
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ROUTINE:  nrussile_hellfire_fly  * 

PARAMETERS:  mptr  -  A  pointer  to  the  HELLFIRE  missile  that  * 
is  to  be  flown  ouL  * 

taigetjocadon  -  The  location  in  world  * 
coordinates  of  the  target.  * 

RETURNS:  none  • 

PURPOSE:  This  routine  performs  the  functions  * 
specifically  related  to  the  flying  a  HELLFIRE  * 
missile.  * 

. ***** . 


void  missile_hcllfire_fly  (mptr,  target_location) 

MISSILE  *mptr; 

VECTOR  target  location; 

{ 

register  REAL  time;  /*  The  current  time  after  launch  (ticks).  */ 

/V 

*  Set  and  .time  .  This  is  created  mostly  for  increased  readablity. 

/*/ 

time  =  mptr>>tinne; 

/•/ 

*  Fiito  the  current  missile  speed  and  the  cosines  of  the  maximum  allowed  turn 

*  angles  in  each  direction.  The  equations  used  are  different  before  and 

*  after  motor  burnout. 

/V 

if  (time  <  HELLFIRE  BURNOUT  TIME) 

{ 

mptr->$peed  =  mptr->init_speed  + 

(speed.factor  • 

(missile_utiLeval_poly  (HELLFIRE_BURN_a*EED_DEG, 
hdlfire.bum  speed  coeff,  time) )); 

) 

else 

{ 

mptr->speed  =  mptr->init_speed  + 

(speed.factor  • 

(missile_util_eval jx)ly  (HELLFIRE_COAST_SPEED_DEG, 
hellfire  coast  speed  coeff,  time) )); 

) 

/V 

*  Note  that  this  is  a  temporary  method  of  fiiwling  the  max  turn  angle. 

/V 

mptr->oos_max  tumfO]  *  cos  (sqrt  (mptr->speed  /  SPEED  0)  *  THETA  0); 

/V 

*  If  the  missile  is  not  armed,  fly  in  a  search  trajectory;  otherwise,  fly 

*  in  a  targeted  trajectory. 

/V 

if(  max.rarrgejimit  >  0  kk 
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kinematics_range_squared  (veh.kinematics,  mptr->location)  > 
max_iange_squared ) 
niissile_taiget_gF(nind(  ); 
else  il  (time  <  HELLFIRE_ARM_TIME) 

missile  target  agm  (mptr,  NULL,  SIN_UNGUIDE,  COS_UNGUIDE,  SIN_CLIMB, 
COSlCLIMB,  SIN_LOCK,  COS.LOCDC,  COS.TERM,  COS.LOSE); 
else 

missile  target  agm  (mptr,  target_location,  SIN_UNGUIDE,  COS_UNGUIDE, 
SIN~CLIMB,CX)S  CLIMB,  SIN  IjOC3C,  COS_L(X3C,  COS_TERM,  C(DS_LOSE); 

/•/ 

*  Tty  to  actually  fly  the  missile.  II  this  fails  stop  flie  missile  altogether 

*  and  return. 

/V 

ifdmissile  util  flyout  (mptr)) 

{ 

missile_heIIflre_stop  (n^tr); 
return; 

} 

else 

{ 

/•/ 

*  If  the  missile  successfully  flew,  check  for  an  intersection  with  the 

*  ground  or  a  vehicle.  If  one  is  fourtd,  blow  up  the  missile,  stop  its 

*  flyout  and  return. 

/•/ 

if  (missile  util  comm  check  .intersection  (mptr,  MSLJTYPE.MISSILE)) 

( 

mis8ile_util_comm_checkjdetonate  (mptr,  MSL_TYPE_MISSILE); 

missile.hdlfire.stop  (mptr); 

returrt; 

) 

) 

/V 

*  If  Are  missile  is  to  continue  to  fly,  return. 

/•/ 

return; 

) 


*  ROUTINE:  missile_hellfiie_stop  * 

*  PARAMETERS:  mptr  -  A  pointer  to  the  HELLFIRE  missile  that  * 

*  is  to  be  stopped.  • 

*  RETURNS:  r»or«  • 

*  PURPOSE:  This  routine  causes  all  cotKemed  to  forget  * 

*  about  the  missile.  It  should  be  called  when  * 

*  the  flyout  of  any  HELLFIRE  rtussUe  is  stopped  * 

*  (whether  or  rK)t  it  has  exploded).  Note  that  * 

*  this  routine  can  only  be  called  within  this  * 

*  nvxlule.  • 
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. . 


static  void  missUe.hdlfire.stop  (mptr) 

MISSILE  *mptr; 

{ 

/V 

*  Tell  the  world  to  stop  worrying  about  this  missile  then  release  the 

*  memory  for  use  toother  niissiles. 

/V 

inis8ile_util_comm_stop_missile  (mptr,  MSL_TYPE_MISSILE>; 
mptr->state  =  FALSE; 

) 
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The  following  appendix  contains  the  source  code  listing  for 
miss_kem.c  for  convenience  in  document  maintenance  and 
understanding  of  the  CSU. 
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/*  SHeaden  /a3/adst<m/RWA/sinnnet/vehide/lib8rc/libinis8ile/RCS/miss_kein.c,v  1. 
1 1992/09/30 16:3952  cm-adst  Exp  $  */ 

/• 

*  $Log:  iniss_kemx,v  $ 

*  Revision  1.1  1992/09/30  16:3952  cnvadst 

*  Initial  Version 

V 

static  char  RCS  IDD  =  '^Header.  /a3/adst-cm/RWA/sinmet/vehicIe/libsrc/libmissU 
e/RCS/iniss_kem.c,v  1.1 1992/09/30 165952  cm-adst  Exp 

/”***■*■■"'■*" . . . 

*  Revisions: 

*  Version  Date  Author  Title  SP/CR  Number 


*  15  10/23/92  R.  Branson  Data  File  Initiali- 

*  zation 

*  15  10/30/92  R.  Branson  Added  pathname  to  data 

*  directory 

*  lA  11/25/92  R.  Branson  Changed  %i  to  %d 

. . . . . / 


/■* . 

* 

*  SP/CR  No.  Descriptirm  of  Modification 


Hard  coded  defines  changed  to  array  elements. 

Characteristics/parameter  data  array  added. 

Degree  of  pxilynoinial  data  array  added. 

Added  file  reads  for  KEM  characteristics/paraineters, 
bum  speed  coefficients,  coast  ^leed  coefficients, 
bum  turn  coefficients,  and  coast  turn  coeffi¬ 
cients. 

Added  "/simnet/data/"  to  each  data  file  pathname. 


*FILE:  miss  kemx  * 

•AUTHOR:  I^BartoI  • 

•  MAINTAINER:  Kris  Bartol:  converted  from  miss.adat 

•  # 

•  PURPOSE:  This  file  contains  routines  whidi  fly  out  a  • 

•  missile  with  the  diaracteristics  of  a  KEM  • 
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missile.  * 

HISTORY:  10/23/90  kris:  converted  from  miss.adat  * 

Copyright  (c)  1989  BBN  Systems  aiKl  Technologies,  Inc.  * 

All  rights  reserved.  * 

. . 


#include  "stdio  Ji” 

#include  ”math 

#include  ”sim_types.h'' 

#include  ”sim_d^.h" 

#include  "basic.h" 

#include  "mun_type.h" 

#include  libmap.h" 

#include  1ibmatrixJ\” 

#include  ’riiiss.kem.h'* 

#include  "libmiss_dfn.h” 

#include  libmissJocJi” 

/V 

*  Define  missile  characteristics. 

/•/ 

idefineKEM  BURNOUT.TIME  kern  miss  charfO] 
«defineKEM_MAX_FUGHT  TIME  kern  miss_char(l] 

/* 

*  just  after  burnout,  max  V  =  ~3418  m/tick  =  ~230  m/sec 

*  so  in  order  to  get  the  KEM  missile  to  fly  9  Vmax  =  1524  m/2 

*  must  multiply  the  speed  calculated  by  6.626  "=  1524  /  230 

•/ 

#defineKEM_TO_MACH5_FACTOR  kem_mis8_charf2l 

/V 

*  Define  the  states  the  KEM  MISSILE  can  be  in. 

/•/ 

#define  KEM.FREE  0  /*  No  missile  assigned.  */ 

#define  KEM_GUIDE  1  /*  Missile  flying  and  guided.*/ 

#define  KEM_UNGUIDE  2  /*  Missile  flying  but  unguided.  *  / 

/•/ 

*  The  following  terms  set  the  order  of  the  polynomials  used  to  determme 

*  the  speed  or  cosine  of  the  maximum  allowed  turn  rate  of  flte  missile 

*  at  any  point  in  time. 

/•/ 

#dcfine  KEM_BURN_SPEED_DEG  kem_miss_poly_degI0] 
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#defirre  KEM_CX)AST_SPEED_DEG  kem_miss_po]y_deg[l] 
«defineKEM  BURN  TURN.DEG  kern  miss4X)ly_deg[2] 

#define  KEM_COASf_TURN_DEG  kem_mis8_poly_degJ3] 

/V 

*  ADAT  missile  characteristic  fMrameters  irutialized  to  default  values. 

/V 

static  REAL  kem  miss  charflO]  = 

{ 

48.0,  /•ticks (3.2 sec) •/ 

300.00,  /•ticks (20.0 sec)*/ 

6.626,  /*  speed  factor  to  raise  from  ADAT  to  KEM  •/ 

0.0, 

0.0, 

0.0, 

OJ), 

OA 

0/), 

0.0 

1; 


/•/ 

•  The  following  are  the  default  values  of  the  degree  of  polyiv>mials. 

/•/ 

static  int  kem  miss  poly  degJS] 

( 

2,  /*  Speed  before  motor  burnout  */ 

4,  /*  Speed  after  rrurtor  burnout.  •/ 

3,  /•  Cosine  of  max  turn  before  burnout.  •/ 

5,  /*  Cosine  of  max  turn  after  burnout.  •/ 

0 

1; 

/•/ 

•  Coefficients  for  the  speed  polynomial  before  motor  burnout  initialized 

•  to  default  values. 

/•/ 

static  REAL  kem  bum  speed  coeffllO]  = 

{ 

2.296,  /•  a  0  -  m/tick  •/ 

0.72990856,  /•  a  1  -  m/tick-2  •/ 

0.013310932,  /•a  2-m/tick**3*/ 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 
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/V 

*  Coefficients  for  the  speed  polynomial  after  motor  burnout. 

/V 


static  REAL  kem  coast_speed  coeffJlO]  = 

{ 


10552162, 

-1.0157285, 

5.6124330e-3, 

-15262606e-5, 

1.8991982e-8, 

0.0, 

0.0, 


/•a  0-m/tidi*/ 
/•aj-m/tick^*/ 
/•a  2-m/tick*^V 
/•a_3-m/tick*»4V 
/*  a_4  -  m/tick**5  */ 


0.0, 


0.0, 

0.0 


/•/ 

*  Coefficients  for  the  cosine  of  nux  turn  polynomial  before  motor  burnout. 

/V 

static  REAL  kem  bum  turn  coeffllOl  s 

{ 

0.999993,  /•a_0-cos(rad)/tickV 
-62386917e-7,  /•  a  1  -  cos(rad)/tick^  •/ 

1.6146426e-7,  /•a_2-cos(rad)/tick*»3V 
-9.720142e-7,  /•  a_3  -  cos(rad)/tick^4  */ 

0.0, 

0.0, 

0.0, 

ao, 

0.0, 

0.0 

); 


/*/ 

*  Coefficients  for  the  cosine  of  max  turn  polynomial  after  motor  burnout. 
/•/ 


static  REAL  kem  coast_tum  coeff{10]  = 
{ 


0.99753111, 

55817986e-5, 

-5.1276276e-7, 

2.2388593e-9, 

-5.1964622e-12, 

45499104e-15, 


/•  a_0  -  cos(rad)/tick  •/ 

/•  a_l  -  co8(rad)/tick^2  •/ 
/•  a_2  -  cos(rad)/tick*^  •/ 
/•  a_3  -  cos(rad)/tick**4  •/ 
/•  a_4  -  cos(rad)/tick**5  */ 
/*  a_5  -  cos(rad)/tick**6  •/ 
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0.0, 

0.0, 

0.0, 

0.0 

); 

/V 

*  Memory  for  the  missiles  is  declared  in  vehicle  specific  code.  Duriirg 

*  initialization,  a  pointer  is  assigned  to  this  memory  then  some  nreirrory 

*  issues  are  dealt  with  in  this  module. 

/V 

static  KEM_M1SSILE  •kem_array;  /•  A  pointer  to  missile  iiremory.  *! 
static  int  num_kems;  /*  The  number  of  defined  missiles.  */ 

/*f 

*  Declare  static  fimctions. 

/V 

static  void  missile_kem_stop  0; 

. . . 

*  • 

•  ROUTINE:  missile_kem_init  • 

•PARAMETERS:  missile.array  •  A  pointer  to  an  array  of  • 

•  KEM  missiles  defined  in  • 

•  vehicle  specific  code.  * 

•  num.irtissiles- The  number  missiles  defined  in  • 

•  _missile_array_.  • 

•  RETURNS:  none  • 

•  PURPOSE:  This  routine  copies  the  parameters  into  • 

•  variables  static  to  fiiis  module  and  initializes  • 

•  the  state  of  all  the  missiles.  • 

. . 


void  missile_kem_itut  (missile.array,  num_missiles) 

KEM.MISSILE  missile_arrayQ; 
int  num_missiles; 

{ 

int  i;  /•  A  counter.  •/ 
int  data_tmpjnt; 
float  data_tmp; 
char  descript(64]; 

FILE  ‘fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  miss_kem.c  READ  FROM  FILE  •/ 
fp  s  fopen(”/sifimet/data/ms  km  ch.d","r"); 
if(fp==NULL){ 

fprintffstderr,  "Carmot  open  /simnet/data/ii«_km_ch.d\n"); 
exitO; 
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1 

rewind(^); 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%f &data_tmp)  !=  EOT){ 
kem_nuss_char[i]  =  data.tmp; 
fgetsCdescript,  64,  fp); 

/•  printfrkem_nuss_char(%3d)  is%l  1 3f  %s",  i, 

kem_miss_charfi],  descripf);  •/ 

++i; 

) 

fcloseffp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  nuss_kem.c  READ  FROM  FILE  •/ 

/•  DEFAULT  BURN  SPEED  DATA  FOR  miss_kem.c  READ  FROM  FILE  •/ 

fp  =  fbpenC/simnet/data/ms  kin_bs.d","r"); 
if(fp=NULL){ 

iprintf(stderr,  "Cannot  of>en  /sininet/data/ms_kin_bs.d\n"); 
exitO; 

} 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data_tmp_int); 

KEM_BURN_SPEED_DEG  =  data_tr*ip_int; 
fgetsfdescript,  64,  fp); 

/•  printf("kem_miss_poly  deg(0)  is%3d  %s", 

KEM_BURN_SPEED_DEG,  descripl);  •/ 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r,  &data_tmp)  '.=  EOFM 
kem_bum_speed_coe^i]  =  data_tmp; 
fgetsfdescrifrt,  64,  fp); 

/•  printfrkem_bum_speed_cyeff(%3d)  is%l  1 3f  %s",  i, 

kem_bum_speed_coeffli],  descript);  •/ 

++i; 

) 

fcloseffp); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  miss.kcmx  READ  FROM  FILE  */ 

/•  DEFAULT  COAST  SPEED  DATA  FOR  miss.kemx  READ  FROM  FILE  •/ 
fp  =  fopen("/simnet/data/ms_km_cs.d","rS; 
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if(fp==NULL)| 

fprintffstderr,  "Cannot  open  /simnet/data/nis_kin_cs.d\n"); 
exitO; 

1 

rewind(fp); 

/•  Read  degree  of  polynomial  •/ 

fscanf(fp,”%d",  &data_tmp_int); 

KEM_COAST_SPEED_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

I*  printf("kem_miss_poIy_deg(l)is%3d  %s", 

KEM_c6aST_SPEED_DEG,  descript);  */ 

/•  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 
kem_coast_speed_coeffIi]  =  data_tmp; 
fgetsfdescript,  64,  fp); 

/•  printfrkem_coast_speed_coeff(%3d)  is%l  1 3f  %s",  i, 

kem_coast_speed_coefflil,  descript);  */ 


fcloseffp); 

/•  END  DEFAULT  COAST  SPEED  DATA  FOR  miss.kemx  READ  FROM  FILE  V 

/•  DEFAULT  BURN  TURN  DATA  FOR  miss_kem.c  READ  FROM  FILE  V 

fp  =  fopenr/simnet/data/ms  km_bt.d","r"); 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /siinnet/data/ins_km_bLd\n"); 
exitO; 

) 


rewind(fp); 

/•  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  6cdata_tmp_int); 
KEM_BURN_TURN_DEG  =  data_tmp_int; 
%ets(descript,  64,  fp); 

/•  printf("kem_miss4X)ly  deg(2)  is%3d  %s", 
KEM_BURN_TURN_DEG,  descript); 

/*  Read  array  data  */ 
i=0; 


while(fscanf<fp,"%r,  &data_tmp)  !=  EOT){ 
kem_bum_turn_coeffIil  =  data_tmp; 


V 
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fgetsfdescript,  64,  fp); 

/•  printf("kem_bum_tum_coeff(%3d)  is%1 13f  %s",  i, 

kem_bum_tum_coeffIi],  descript);  */ 

++i; 

) 

fclose(fp); 

/*  END  DEFAULT  BURN  TURN  DATA  FOR  miss.kemx  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  TURN  DATA  FOR  miss_kem.c  READ  FROM  FILE  •/ 

fp  =  fopen("/siinnet/data/ms_kni_ctxi",**i^); 
if(fp==NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/ins_km_ctrl\n"); 
exitO; 

1 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  4cdata_tmp_int); 

KEM_COAST_TURN_DEG  =  data_tmp_int; 
fgetsfdesaipt,  64,  fp); 

/•  printf("kem_nruss_poly  deg(3)  is%3d  %s”, 

KEM_COAST_TURN_DEG,  descript);  •/ 

/*  Read  array  data  */ 
i»0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 
kem_coast_tum_ooeffli]  =  data_tmp; 
fgetsfdescript,  64,  fp); 

r  printfn(em_ooast_tum_coeff(%3d)  is%1 1 3f  %s",  i, 

kem_coast_tum_coeffIil,  descript);  */ 

++i; 

) 

fcloseffp); 

/•  END  DEFAULT  COAST  TURN  DATA  FOR  miss.kemx  READ  FROM  FILE  •/ 

num_kenis  =  num.missiles; 
kem_aiTay  =  missile.array; 
for  (i  s  0;  i  <  num  missiles;  i-M-) 

{ 

kem_array{i]mptr.state  =  KEM_FREE; 

kem_aiTay(il  jnptr.max_flight_time  =  KEM_MAX_FLIGHT_TIME; 
kem_arniy(i].mptr.max  tum_directions  =  1; 

) 

1 

int  mis8ile_kem_is_free(  missile ) 
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int  missile; 

( 

retumC  (kem  aiTay{missUe].mptr  jtate  —  KEM  FREE  )); 

) 

. . 

•  » 

*  ROUTINE:  missi]e_kem_fire  • 

*  PARAMETERS:  kptr  •  A  pointer  to  the  KEM  missile  to  be  * 

*  fired.  • 

*  launch_point  -  The  location  in  worid  * 

*  coordinates  that  the  missile  is  * 

*  launched  from.  * 

*  loc_sight_to_world  -  The  sight  to  world  • 

*  transformation  matrix  used  * 

*  only  in  this  routine.  * 

*  launch_speed  -  The  speed  of  the  launch  * 

*  platform  (assumed  to  be  in  the  * 

*  direction  of  the  missile).  * 

*  targeted  -  Target's  tracking  ID  * 

*  targetjoc  -  location  of  target  in  World  Coord  * 

*  target.vehiclejd  -  The  vehicle  ID  of  the  * 

*  target  (if  any).  • 

*  RETURNS:  TRUE  if  successful,  FALSE  if  not.  • 

*  PURPOSE:  This  routine  performs  the  functions  * 

*  specifically  related  to  the  firing  of  a  KEM  * 

*  missile.  • 

*  • 

. . . . . . / 

int  missile_kem_fire  (kptr,  launch_point,  loc_sight_to_world,  laurKh_speed, 
targetjd,  target  loc,  target  vehicle_id) 

KEM.MISSILE  •kptr; 

VECTOR  launch_point; 

T_MATRIX  loc_sight_to_world; 

REAL  lauTKh_s()eed; 
int  targetjd; 

VECTOR  targetjoc; 

VehicielD  •target  vehicle  id; 

{ 

int  i;  /•  A  counter.  •/ 

MISSILE  •mptr;  /•  Pointer  to  the  particular  gerreric  missile 
pointed  at  by  _kptr_.  •/ 

int  comm_target  type;  /•  Indication  of  whether  target  is  kno%vn.  •/ 

/• 

•  Find  mptr  and  targetjd  . 

•/ 

mptr  =  A(kptr->mptr); 
if  (target_vehic)e_id  —  0) 
kptr->target_vehiclejd.vehicle  =  vehiclelrrelevant; 
else 
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kptr->target_vehidejd  =  •taiget_vehide_id; 
kptr->target Jd  =  taigetjd; 
vec_copy(  taigetjoc,  kptr->taiget_pos ); 


/• 

*  Set  the  initial  time,  location,  orientation,  and  ^)eed  of  the  generic 

*  missile. 

V 

mptr->time  =  0.0; 

vecjcopy  (launch_point,  mptr->Iocation); 
mat_oopy  floc_sight_to_world,  mptr->orientation); 

mptr->speed  =  (missile_util_eval_poly  (KEM_BURN_SPEED_DEG, 

kem_bum_speed_coeff,  0.0)  *  KEM_TO_MACH5_FACTOR)  +  launch_speed; 
mptr->init_speed  =  Iaunch_speed; 

if  (kptr->target_vehide_id.vehide  ==  vehidelrrelevant) 
comm_target_type  =  targetUnknown; 
else 

comm_target_type  =  targetlsVehide; 

/• 

*  Tell  the  rest  of  the  world  about  the  tiring  of  the  missile.  If  this 

*  caimot  be  done,  return  FALSE. 

V 

if  (!ntissile_util_oomm_tire_missile  (mptr,  MSL_TYPE_MISSILE, 

map _get_ammo_entry_from_network_type(munition_lJS_ADATS), 
munition_US_ADATS,  muiution_US_ADATS,  &(lcptr->taiget_vehidejd), 
oomm_target„type,  objectirrelevant,  0  /•tube*/)) 
return  (I^LSE); 

/• 

*  If  all  was  successful,  fly  missile  in  guided  state. 

•/ 

mptr->state  =  KEM_GUIDE; 
return  (TRUE); 

) 


•  ROUTINE:  iiussile_kem_update_guidance  * 

•  PARAMETERS:  missile  -  An  iivlex  to  the  KEM  missile  that  * 

•  is  to  be  ufxiated.  * 

•  targetjocation  -  The  location  in  world  * 

•  coordinates  of  the  target  * 

•RETURNS:  none 

•  PURPOSE:  This  routine  updates  the  KEM's  target's  • 

•  position  in  world  coordinates.  • 

. . 

void  missile_kem_update _guidance<  missile,  taiget.location ) 
int  missile; 


-H-11- 


22  January  1993 
Reference  #W003036 
Rev.  0.0 


Appendix  H  •  Souxee  Code  Lifting  for  mia s_kem.c 

VECTOR  target  location; 

{ 

if(  kem_aiTay[missile].mptr  .state  ==  KEM_GUIDE ) 
vec_copy(  target_location,  kenft_aiTay[nus^].taiget_pos ); 


ROUTINE:  nussile_kem_fly  * 

PARAMETERS:  missile  -  An  index  to  the  KEM  missile  that 
is  to  be  flo%vn  out  * 

RETURNS:  none  * 

PURPOSE:  This  routine  performs  the  functions  * 

specifically  related  to  the  flying  a  KEM  * 

missile.  * 

• 

. . . . / 


void  missile_kem_fly<  missile ) 
int  missile; 

( 

KEM_MISSILE  *kptr;  /*  A  pointer  to  a  KEM  missile  */ 

MISSILE  *mptr;  /*  A  pointer  to  the  generic  aspects  of  _kptr_.V 

REAL  time;  /*  The  current  time  after  lauiurh  (ticks).  */ 

/• 

*  Set_kptr_,_mptr_and_tin»e_.  These  values  are  created  mostly 

*  for  increased  readablity. 

V 

kptr  =  &kem_array{mis8ilel; 
niptr  =  &<kptr->mptr); 
time  =  mptr->time; 

/• 

*  Find  the  current  missile  speed  aivl  the  cosines  of  the  maximum  allowed  turn 

*  angles  in  each  direction.  The  equations  used  are  different  before  and 

*  after  motor  burnout. 

•/ 

if  (time  <  KEM  BURNOUT.TIME) 

{ 

mptr->speed  =  (missile_util_eval_poly  (KEM_BURN_SPEED_DEG, 
kem_bum_speed_coeff,  timeT  *  KEM_TO_MACH5_FACfrOR)  + 
mptr->init_speed; 

mptr->cos_max_tum(01  =  missile_ulil_eval_poly  (KEM_BURN_TURN_DEG, 
kem  bum  turn  coeff,  time); 

) 

else 

{ 

mptr->speed  =  (missile_util_eval_poly  (KEM_COAST_SPEED_DEG, 
kem_coast_speed_coeff,  tinte)  *  KEM_TO_MACH5_FACTOR)  + 
mptr->iiut_speed; 

mptr->cos_max_tumlOJ  =  missile_util_eval_poly  (KEM_COAST_TURN_DEG, 
kem_coast_tum_ooeff,  time); 
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) 

/• 

*  Find  the  target  point  =  MissUe's  Target's  position  regardless  of  state 

•/ 

if(  mptr->state  ==  KEM_GUIDE  I  I  mptr->state  s=  KEM_UNGUIDE ) 
missUe.taiget _point(  mptr,  kptr->tat^_pos  ); 
else 

printf  ("MISSILE_KEM:  disallowed  missile  state  %d\n”,  mptr->state): 

/• 

*  Try  to  actually  fly  the  missile.  If  this  fails  stop  the  missile  altogether 

*  and  return. 

V 

if  (!missile_util  flyout  (mptr))  /*  checks  for  time  >nMx_flight_tinrte*/ 

{ 

missile_kem_stop  (kptr); 
return; 

J 

else 

{ 

/• 

*  If  the  missile  successfuUy  flew,  check  for  an  intersection  with  the 

*  ground  or  a  vehicle.  If  one  is  found,  blow  up  the  nussile,  stop  its 

*  flyout  and  return. 

•/ 

if  (missile  util  comm  check  detonate  (mptr,  MSL.TVPE  MISSILE)) 

{ 

missile_kem_stop  (kptr); 
return; 

) 

} 

/•/ 

*  If  the  missile  is  to  continue  to  fly,  return. 

/V 

return; 

) 


*  ROUTINE:  missile_kem_reset_missiles  • 

*  PARAMETERS:  none  * 

*  RETURNS:  none  • 

*  PURPOSE:  This  routine  puts  any  flying  missile  into  an  * 

*  unguided  state.  * 


void  missile  kem  reset  missiles  () 

{ 

inti, 

/• 

*  Reset  all  flying  missiles. 
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V 

for  (i  =  0;  i  <  num_keins;  i-H-) 
if(  kem.arrayji]  jnptr.state  ==  KEM.GUIDE  ) 
kem  ami^i].mptr .state  =  KEM_UNGUIDE; 

1 

/ . . . ******■***- 

»  >» 

•  ROUTINE:  nussile_kein_stop  * 

•  PARAMETERS:  kptr  -  A  pointer  to  the  KEM  missile  that  is  to  * 

•  be  sto]:^3ed.  • 

•RETURNS:  none  • 

•  PURPOSE:  This  routine  causes  all  coiKemed  to  forget  • 

•  about  the  missUe.  It  should  be  called  when  * 

•  the  flyout  of  any  KEM  missile  is  stopped  * 

•  (whether  or  iK)t  it  has  exploded).  Note  Out  • 

•  this  routine  can  only  be  called  within  this  * 

•  module.  • 

•  . . . - . / 


static  void  missile  kem  stop  (kptr) 
KEM.MISSILE  •kptn 


{ 

/•/ 


•  Tell  the  world  to  stop  worrying  about  this  missile  then  release  the 

•  memory  for  use  by  other  missiles. 

/•/ 


) 


iiu8sile_util_oomm_stop_inissile  (&(kptr->mptr),  MSL_TYPE_MISSILE); 
lq>tr->mptr.state  =  KEM_FREE; 
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The  following  appendix  contains  the  source  code  listing  for 
miss_maverck.c  for  convenience  in  document  maintenance  and 
imderstanding  of  the  CSU. 
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/*  SHeader  /a3/adst-cnn/RWA/sinutet/vehicle/Iibsrc/libmissiIe/RCS/miss_nuverck.c, 
V  1.1 1992/09/30 163952  cm-adst  Exp  $  •/ 

/• 

*  $Log:  miss_nwiverck.c,v  $ 

*  Revision  1.1  1992/09/30  163952  cm-adst 

*  Initial  Version 

•/ 

static  char  RCS.IDQ  =  "SHeader  /a3/adst-cm/RWA/simnet/vehicle/Iibsrc/Iibmissil 
e/RCS/miss_maverck.c,v  1.1 1992/09/30 163952  cm-adst  Exp  $"; 

*  Revisions: 

*  Version  Date  Author  Title  SP/CR  Number 


*  13  10/23/92  R.  Branson  Data  File  Initiali- 

*  zatkxi 

*  13  10/30/92  R.  Branson  Added  pathname  to  data 

*  directory 

*  lA  11/25/92  R.  Branson  Changed  %i  to  %d 

**■"**'*'*”**** . . . . I 


. . . 

SP/CR  No.  Description  of  Modification 

Hard  coded  defines  changed  to  array  elements. 
Characteristics/parameter  data  array  added. 

Degree  of  polynomial  data  array  added. 

Added  file  reads  for  maverick  characteristics/ 
parameters,  bum  ^>eed  coefficients,  and  coast 
speed  coefficients. 

Added  "/siirmet/data/"  to  eadt  data  file  pathnanre. 

. . . . . . / 


*  FILE:  mis6_maverick.c  • 

*  AUTHOR:  Bryant  CoUard  * 

*  MAINTAINER:  Bryant  CoUard  * 

*  PURPOSE:  This  file  contains  routiires  whidr  fly  out  a  * 

*  missile  with  the  draracteristics  of  a  MAVERICK  * 

*  missile.  * 

*  HISTORY:  12/8/88  bryant  Creation  • 
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*  A 12^/ 99  bryant:  Added  static  memory  allocation.  * 

*  7/2i>/9\  carol :  libtrack/intervis  integration  * 


*  Copyright  (c)  1988  BBN  Systems  and  Teclmologies,  Iiv:. 

*  All  rights  reserved.  * 


#include  ”stdio.h'' 

#iiKlude  ”math.h” 

#iiKlude  "sim_types.h" 

#itKlude  "sim_dfns.h" 

#iiKlude  "basic.h” 

#iiKlude  "mun_type.h" 
tirtclude  libmap.h” 

#iiKlude  1ibmatrix.h” 

#ifKlude  *libnear.h" 

#iiK;lude  *libtrack.h" 

#include  ’'miss.maverck.h" 

iiiKlude  "Ubmiss_dfn.h" 

#iiKlude  1ibmiss_iocJt" 

/•/ 

*  Defii>e  missile  characteristics. 

/V 

#define  MAVERICK_ARM_TIME  maverick_miss_char(  OJ 
#defiire  MAVERICK_BURNOUT_TIME  maverick_miss_di^  1] 
#define  MAVERICK_MAX_FLIGHT_TIME  maverick_mis6_drar(  2] 
idefine  MAVERICK_LOCK_THRESHOLD  maverick_miss_chari  3J 
#defiire  MAVERICK_HOLD_THRESHOLD  maverick_mis5_char(  4] 
#defiire  SPEED_0  maverick_miss_char{  5) 

#defme  THETA_0  maverici^mis6_char{  6] 

/•/ 

*  Set  parmeters  which  will  control  flight  trajectory  behavior. 

/*/ 


«defineSIN  UNGUIDE 
#define  COS.UNGUIDE 
#defineSIN_CLIMB 
«defineCOS  CLIMB 
idefine  SIN  LOCK 
♦define  COS.LOCK 
♦define  COS  TERM 
♦define  COS.LOSE 

/*/ 


maverick_miss_char{  7] 
maverick_missjchar[  8] 
maverick_miss_char{  9] 
maverick_miss_charf  lOJ 
ma  verick_iniss_char(  1 1 1 
maverick_miss_char{12] 
rra  verick_miss_char{  13] 
maverick_iiuss_char(141 
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*  Define  the  states  the  MAVERICK  MISSILE  can  be  in. 

/V 

#define  MAVERICK.FREE  0  No  missUe  assigned.  */ 

#define  MAVERICK.READY  1  /*  Missile  assigned  to  ready  state.  V 

#define  MAVERICK_FLYING  2  /*  Missile  assigned  to  flying  state.  */ 

/V 

*  The  following  terms  set  the  order  of  the  polynomials  used  to  determine 

*  the  ^)eed  or  cosine  of  the  maximum  allowed  turn  rate  of  the  missile 

*  at  any  point  in  time. 

/•/ 

#define  MAVERICK_BURN_SPEED_DEG  maverick_miss_poly_degl01 
#define  MAVERICK_COAST_SPEED_DEG  maverick_miss_poly_d^ll 

/V 

*  Maverick  missile  characteristic  parameters  initialized  to  default  values. 

/V 

static  REAL  maverick  miss  charllS]  = 

{ 

20Xi,  /*  maverick  arm  time  ticks  (U  sec)  */ 

225,  /*  maverick  burnout  time  ticks  (13  sec)  •/ 

9(X).0,  /*  maverick  max  flight  time  ticks  (60  sec)  */ 

0.989073800,  /*  maverick  lock  threshold  cos  (6  deg)  **  2  */ 

0.969846310,  /*  maverick  hold  threshold  cos  (10  deg)**  2*/ 

2833333333,  /'speed  0  */ 

0.046542113,  /‘theta.O  */ 

0.0,  /*  sin  level  unguided  flight.  */ 

1.0,  /*  cos  level  unguided  flight.  */ 

0.004072424,  /*  sin  dimb  33  deg/sec  */ 

0.999991708,  /*  cos  dimb  33  deg/sec  */ 

0.087155743,  /*  sin  lock  5  deg  */ 

0.996194698,  /*  cos  lock  5  deg  V 
0.173648178,  /*  cos  terminal  80  deg  V 
0.939692621  /*  cos  loose  lock  20  deg  */ 

); 

/•/ 

*  The  following  terms  set  the  order  of  the  polynomials  used  to  determine 

*  the  speed. 

/*/ 

static  int  nuiverick  miss_poly  degi2] » 

( 

1,  /•  Maverick  bum  speed  degree.  */ 

3  /*  Maverick  coast  speed  degree.  */ 

); 

/•/ 

*  Coeffidents  for  the  ^xed  polynomial  before  motor  burnout. 

/•/ 
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static  REAL  maverick  bum  speed_coeffI5]  = 

{ 

0.03333333,  /*  a_0  -  m/tick  (67.0  m/sec)  •/ 

1.25777777  /*  a_l  -  m/tick**2  (274.9732662  m/sec^2)  •/ 

); 

/V 

*  Coefficients  for  the  speed  polynomial  after  motor  burnout. 

/V 

static  REAL  maverick_coast_^3eed_coeffI5]  = 

{ 

30.46972849,  /’a.O- m/tick  (327.2858074  m/sec)  V 

-9.7721 160e-2,  /*  a_l  -  m/tick-2  (-21.4609544  m/sec^)  */ 

12433925e-4,  /•  a_2  -  m/tick*^  (0E227650  m/secTJ)  */ 

-5.4061501e-8  /*  a_3  -  m/tick**4  (-0.0133200  m/sec^4)  */ 

1; 

/V 

*  Memory  for  the  missiles  is  declared  in  vehide  qsedfic  code.  During 

*  initialization,  a  pointer  is  assigned  to  this  nnemoiy  then  all  memory 

*  issues  are  dealt  with  in  this  modtile. 

/V 

static  MAVERICK_MISSILE  *maverick_array;  /•  A  pointer  to  missile  memory.  */ 
static  int  num.mavericks;  /*  The  number  (rf  defined  missiles.  */ 

#defineSTRING_LEN  20 

static  char  prelaunch_intervis_method  [STRING_LEN  + 1]  =  IrT; 
static  char  in_fIight_intervis_method  (STRING_iiN  + 1]  =  "omnisdent"; 
static  PFI  pd_callback_func; 
static  REAL  maverick_cone_threshold; 

/V 

*  Declare  static  fuiKtions. 

/V 

static  void  missile_maverick_fly  (); 

static  MAVERICK_MISSILE  *missile_maverick _get_missile_from_seirsor_id  0; 

static  void  iiussile_maverickJock_handler  (); 

static  void  missile_maverick_break_lock_haiKller  (); 

static  REAL  missile_maverick_detectibility  (); 

static  void  missile_maverick_object_update  (); 

*  ROUTINE:  missile_maverick_init  * 

•PARAMETERS:  missile_array  -  A  pointer  to  an  array  of  * 

*  MAVERICK  missiles  defined  in  * 

*  vehide  specific  code.  • 
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•  niun_inissUes  -  The  number  missiles  defined  in  * 

•  missile_aiTay_.  • 

•RETURNS:  none 

•  PURPOSE:  This  routiite  copies  the  parameters  into  • 

•  variables  static  to  this  module  and  initializes  • 

•  the  state  of  all  the  missiles.  • 

. . 

void  missile_maverickjnit  (missile_array,  num_missiles,  func) 

MAVERICK_MISSILE  missile.anayd; 
int  num_missiles; 

PFI  func; 

{ 

int  i;  /*  A  counter.  */ 
int  data_tmp_int; 
float  data.tmp; 
char  descript[64]; 

HLE  ‘fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  ndss  maverckx  READ  FROM  FILE  • 

/ 

fp  =  fopen("/simnet/data/ms  mk_ch.d","r^); 
if(fp=NULL){ 

fprintf(stderr,  "Cannot  open  /simnet/data/ms_mk_ch.d\n"); 
exitO; 

) 

rewind(fp); 

/•  Read  array  data  •/ 
i=0; 

while(fscanf(fp,"%r,  icdata.tmp)  !=  EOF){ 
maverick_mis6_char(i]  =  data.tmp; 
fgets(descript,  64,  fp); 

/•  printfC'nna  verick_nuss_char(%3d)  is%l  1 3f  %s",  i, 

maverick_miss_char(i],  descript);  •/ 

++i; 

) 

fcloseffp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  mis5_maverck.c  READ  FROM  FILE  */ 

/•  DEFAULT  BURN  SPEED  DATA  FOR  miss_maverck.c  READ  FROM  FILE  •/ 
fp  =  fopen("/simnet/data/ms  mk  bs.d","r"); 
if<fp==NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/nis_mk_bs.d\n"); 
exitO; 

) 
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*  num.missiles  -  The  number  missiles  defined  in  * 

*  _missile_array_.  • 

*  RETURNS:  none  • 

*  PURPOSE:  This  routine  copies  the  parameters  into  • 

*  variables  static  to  this  module  and  initializes  * 

*  the  state  of  all  the  missiles.  * 

»  * 

. . 

void  missile_maverickjiut  (missile_array,  num_missiles,  func) 

MAVERICK_MISSILE  missile.arraytl; 
int  num_missiles; 

PFI  fuiK; 

{ 

int  i;  /*  A  counter.  •/ 
int  data_tmp_int; 
float  data_tmp; 
char  descript(64]; 

HLE  ’fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  miss  maverckx  READ  FROM  FILE 

/ 

fp  =  fopenC/simnet/data/ms  mk  ch-d^V); 
if(fp=NULL){ 

fpiintffstdeiT,  "Carmot  open  /simnet/data/ms_mk_ch.d\n"); 
exiK); 

) 

rewind(^); 

/*  Read  array  data  */ 
i=0; 

while(fsairKfp,"%r,  &data_tmp)  !=  EOF){ 
maverick_mis6_char(i]  =  data.tmp; 
fgetsCdescript,  64,  fp); 

/•  printfC'maverick_miss_char(%3d)  is%113f  %s",  i, 

maverick_iniss_chaif  i],  desciipt);  •/ 

++i; 

) 

fcloseffp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  miss_maverck.c  READ  FROM  FILE  V 

/•  DEFAULT  BURN  SPEED  DATA  FOR  miss_maverck.c  READ  FROM  HLE  •/ 
fp  =  fopenC/simnet/data/ms  mk  bs.d","r"); 
if(fp==NULL)( 

fprintffstderr,  "Carawt  open  /simnet/data/ms_mk_bs.d\n''); 
exitO; 

) 
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rewind(^); 

/•  Read  degree  of  polynomial  •/ 

fscanf(fp,”%d",  &data_tmp_int); 

MAVERICK_BURN_SPEED_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  ^); 

/•  printf("inaverick_miss_poly_deg(0)  is%3d  %s", 

MAVERICK_BURN_SPEED_DEG,  descript);  •/ 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 

inaverick_bum_specd_coeff[i]  -  data_tmp; 
fgetsfdescript,  64,  fp); 

/•  printfC'nuiverick_bum_speed_coeff(%3d)  is%l  1 3f  %s",  i, 

maverick_bum_speed_coeffIil,  descript);  */ 

++i; 

} 

fcloseffp); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  miss.maverclu:  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  SPEED  DATA  FOR  iniss^maven:k.c  READ  FROM  FILE  V 

fp  =  fo()en('*/simnet/data/nis  nik_csxi","r"); 
if(fp=»NULL){ 

fprintfCstderr,  "Cannot  open  /simnet/data/ins_ink_csxl\n"); 
exitO; 

} 

rewind(^); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data_tmp_int); 

MAVERICK_COAST_SPEED_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

/*  printfCmaverick  miss  poly  degd)  is%3d  %s”, 

MAVERICK_COASr_SPEED_DEG,  descript);  V 

/*  Read  array  data  */ 
i=0; 

while<fscanf(fp,"%r,  4cdata_tmp)  !=  EOF){ 

maverick_coast_speed_coeffIi]  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/*  printfrinaverick_coast_speed_coeff(%3d)  is%113f  %s”,  i, 
maverick_coast_speed_coeffIil,  descript);  •/ 

++i; 

) 
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fclose(fp); 

/•  END  DEFAULT  COAST  SPEED  DATA  FOR  miss.maverckx  READ  FROM  FILE  */ 

maverick_cone_threshold  =  MAVERICK_LOCK_THRESHOLD; 
num_mavericks  =  num_missiles; 
niaverick.array  =  missile_array; 

for  (i  =  0;  i  <  nuin_missiles;  i-H-) 

{ 

maverick_array(il.n^tr.state  =  MAVERICK_FREE; 

inaverick_aiTay(i].mptr.max_flight_tinie  =  MAVERICK_MAX_FLIGHT_TIME; 
n«iverick_arrayIii.niptr.max_tum_directions  =  1; 
maverick_aiTay[ii.object_being_tnicked  =  NO_OBJECT; 
inaverick_aiTay{il.sensor_id  =  NULL; 

} 

pel  callback  func  =  func; 

) 


•  • 

•  ROUTINE:  nussile_n\averick_sensor_init  * 

•  PARAMETERS:  none  * 

•RETURNS:  none  • 

•  PURPOSE:  Calls  to  initialize  a  libtrack  sensor  • 

•  • 

. 

void  niissile_maverick_sensor_init  (mvptr,  iv  method) 
MAVERICK_MISSILE  'mvptn 
char  •iv_method; 

{ 

if  (TrackSensorInit  (missi]e_inaverickJock_handler, 
nussile_maverickJbreak_lock_handler, 
missile.maverickjdetectibility, 
pwl.callback.func, 
nussile_maverickjobject_update, 

E.NANO, 

&mvptr  •>  sensor Jd)  <  0) 

printf  ("inissile_n«verick_sensor_init:  TrackSensorInit:  %s\n", 
TrackErrSMng  ()); 

if  (TrackSetIntervisibility  (mvptr ->  sensor  id,  prelaunch  intends  method) 
<0) 

printf  ("nussiIe_nuiverick_sensor_init:  TrackSetIntervisibility:  %s\n", 
TrackErrString  ()); 

if  (TrackSetPersistence  (mvptr  ->  sensor  id,  5  /•  ticks  of  persistence  •/) 

<0) 

printf  ("missile_maverick_sensor_init:  TrackSetPersistence:  %s\n", 
TrackErrSMng  ()); 
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if  (TrackSetMaxResponses  (mvptr  ->  sensorjd,  1)  <  0) 
printf  ("inissile_maverick_sensorJnit:  TrackSetMaxResponses:  %s\n", 
TrackEnString  ()); 

if  (TrackSetVehiclelD  (mvptr  ->  sensorjd,  network_get_vehicieJd  0)  <  0) 
printf  ("missile_maverick_sensor Jnit:  TrackSetVehidelD:  %s\n", 
TrackEnString  ()); 


•  ROUTINE:  missile_maverick_ready  • 

•PARAMETERS:  none  • 

•  RETURNS:  A  pointer  to  a  missile  that  is  currently  • 

•  available.  • 

•  PURPOSE:  This  routine  finds,  if  possible,  a  missile  that  • 

•  is  not  being  used,  puts  it  in  a  ready  state  and  • 

•  returns  a  pointer  to  it.  • 


MAVERICK  MISSILE  •missile  maverick  ready  () 

int  i;  /•  A  counter.  •/ 

/•/ 

•  Try  to  find  a  free  missile. 

/*/ 

for  (i  =  0;  i  <  num  mavericks;  i-H-) 

{ 

/*/ 

•  If  a  free  missile  is  found,  put  it  in  a  ready  state,  dear  the  target 

•  ID  aiKl  return  a  pointer  to  it 
/•/ 

if  (maverick_array(i].mptr Jtate  —  MAVERICK  FREE) 

{ 

maverick_array(i]  jnptr.state  =  MAVERICK.READY; 
maverick_array(i].taiget_vehidejd.vehide  =  vehicleirrelevant; 
nussile_maverick_sensor_init  (&iiuiveiick_array{i], 
prelauiKh_intervis_method); 
return  (&maverick_arTay{i]); 


•  If  rto  free  missile  is  found,  return  a  NULL  pointer. 
/•/ 

return  (NULL); 


-1-9- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  I  *  Source  Code  Listing  for  mi8S_maverck.c 

•  ROUTINE:  missile_maverick_pre_launch  • 

•  PARAMETERS:  mvptr  -  A  pointer  to  the  missile  that  is  to  be  • 

•  serviced.  * 

•  Iaunch_point  -  The  location  of  the  missile  in  * 

•  world  coordinates.  * 

•  launch_to_woi1d  -  The  transformation  matrix  of  * 

•  the  missile  to  the  world.  * 

•  veh_list  -  Vehicle  list  ID.  * 

•RETURNS:  none 

•  PURPOSE:  This  routine  is  called  after  a  missile  has  been  • 

•  readied  and  before  it  has  been  lauiKhed.  It  * 

•  determines  if  the  seeker  head  can  see  a  target  • 

•  and,  if  it  can  see  a  target,  stores  its  • 

•  position.  • 

. — . / 

void  missile_maverick_pre_launch  (mvptr,  launch_point,  launch_to_world, 
veh  list) 

MAVERICK_MISSILE  •mvptr; 

VECTOR  launch_point; 

T_MATRIX  lauru:h_to_world; 
int  vehjist; 

{ 

register  TObjectP  object; 

VECTOR  object  loc; 

/•/ 

•  tick  Ubtrack  to  update  location  arvl  see  if  any  callbacks  need  to  be 

•  invoked. 

/V 

if  (TrackUpdate  (mvptr  ->  sensorjd,  veh_list,  Iaunch_point, 
launch_to_world[l])  <  0) 

printf  ("missile_maverick_pre_launch:  TrackUpdate:  %s\n", 
TrackErrSMng  ()); 

•  If  a  target  is  foutKl,  store  its  location. 

/•/ 

if  ((object  =  mvptr  ->  object  being_tracked)  !*  NO_OBJECT) 

( 

mvptr->target_vehicle_id  =  object  ->  var.vehiclelD; 
GetLocatiorrOfTObject  (object,  objectjoc); 

/•  change  pursuit  to  take  a  VECTOR  rathier  than  VAP  for  location  •/ 
nussile  target  pursuit  (&(mvptr->mptr),  object  loc); 

) 

else 

{ 

mvptr->target_vehicle_id.vehicle  =  vehidelrrdevant; 
if  (TrackAoquire  (mvptr  ->  sensor_id,  veh_Ust,  laundi_point, 
!aunch_to_world[l])  <  0) 

printf  ("inissile_maverick_pre_laimch:  Trad^cquire:  %s\n", 
TrackEnStrirtg  ()); 

) 
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) 


/ . . 

#  • 

•  ROUTINE:  nnissile_maverick_fire  • 

•PARAMETERS:  mvptr  -  A  pointer  to  the  MAVERICK  missile  that  *  * 

•  is  to  be  launched.  * 

•  launch_point  -  The  location  in  world  * 

•  coordinates  that  the  missile  is  • 

•  lauiKhed  from.  • 

•  launch_to_world  -  The  transformation  matrix  of  • 

•  the  lauiKh  platform  to  the  • 

•  world.  • 

•  launch_speed  -  The  speed  of  the  lauiuh  * 

•  platform  (assumed  to  be  in  the  • 

•  direction  of  the  missile).  * 

•  tube  -  The  tube  the  missile  was  launched  ht>m.  • 

•  RETURNS:  TRUE  for  a  successful  lauiKh  and  FALSE  for  an  • 

•  unsuccessful  launch. 

•  PURPOSE:  This  routine  performs  the  functions  * 

•  specifically  related  to  the  firing  of  a  • 

•  MAVERICK  missile.  • 

. . . . I 

int  missUe.maverick.fire  (mvptr,  launch_point,  Iaunch_to_world,  launch.speed, 
tube) 

MAVERICK.MISSILE  ’mvptr; 

VECTOR  lamich_point; 

T_MATRIX  lauiKh_to_world; 

REAL  launch_speed; 
int  tube; 

{ 

MISSILE  •mptr;  /•  Pointer  to  the  particular  generic  missile 
pointed  at  by  _mvptr_.  •/ 

/V 

•  Get  a  pointer  to  the  generic  elements  of  the  MAVERICK  missile.  This 

•  in^TToves  code  readability. 

/V 

n^rtr  =  &(mvptr->mptr); 

/•/ 

•  Set  the  initial  time,  location,  orientatioiv  and  qxed  of  the  generic 

•  missile. 

/V 

mptr*>time  =  0.0; 

vec.copy  (launch_point,  mptr->location); 
mat.copy  Qaunch_to_world,  mptr->orientation); 
mptr->^)eed  =  mis8ile_util_eval_poly  (MAVERICK_BURN_SPEED_DEG, 
maverick_bum_speed_ooeff,  0.0)  +  lauiKh.speed; 
mptr>>init_speed  =  launch.speed; 
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/•/ 

*  Tell  the  rest  of  the  world  about  the  firing  of  the  missile.  If  this 

*  cannot  be  done,  release  the  missile  memory  and  return  FALSE. 

/V 

if  (!missile_util_comm_fire_missile  (mptr,  MSL_TYPE_MISSIUE, 

map_get_ammo_entry_from_network_type(munition_US_Maverick), 
munition_US_Maverick,  munition_US_\4averick, 
&(mvptr->target_vehicle_id),  targetlsVehide,  objectlirelevant, 
tube)) 

{ 

mptr->state  =  MAVERICK_FREE; 
return  (FALSE); 

) 

/V 

•  If  all  was  successful,  set  the  missile  state  to  MAVERICK_FLYING  and 

•  return  TRUE. 

/V 

mptr*>state  =  MAVERICK_FLYING; 
return  (TRUE); 

1 


•ROUTINE:  missile  maverick  fly  missiles 
•PARAMETERS:  veh  list  •  Vehicle  list  ID. 
•RETURNS:  none 

•PURPOSE:  This  routine  flies  out  all  missiles  in  a 


flying  state. 


void  missile_maverick_fly_missiles  (veh_list) 
intveh  list; 

( 

int  i;  /•  A  counter.  •/ 

/•/ 

•  Fly  out  all  flying  ntissiles. 

/•/ 

for  (i  =  0;  i  <  num  mavericks;  i-M-) 

{ 

if  (maverick_array[i].mptr  .state  —  MAVERICK.FLYING) 
missile  maverick_fly  (&(maverick_aiTay(il),  veh  list); 

) 

) 


•  ROUTINE:  missile_maverick_fly  • 

•PARAMETERS:  mvptr  -  A  pointer  to  the  MAVERICK  missile  that  • 

•  is  to  be  flown  out.  • 
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•  veh_list  -  Vehicle  list  ID.  • 

•  RETURNS:  none  • 

•  PURPOSE:  This  routine  performs  the  functions  • 

•  speciEcally  related  to  the  flying  a  MAVERICK  * 

•  missile.  * 


static  void  missile_maverick_fly  (mvptr,  veh_list) 

MAVERICK.MISSILE  *mvptr; 
intveh  list; 

{ 

register  MISSILE  *mptr;  /•  A  pointer  to  the  generic  aspects  of 

_mvptr_.  •/ 

REAL  time;  /*  The  current  time  after  launch  (ticks).  •/ 

VECTOR  targetjocation;  /•  The  location  of  the  target.  *  / 

/V 

*  Set  _mptr_  and  _time_.  These  values  are  created  mostly  for  mcreased 

*  readablity. 

/V 

n^>tr  =  &(mvptr->mptr); 
time  =  mptr->tinne; 

/•/ 

*  Find  the  current  missile  ^)eed  and  the  cosine  of  the  maximum  allowed  turn 

*  ang^e.  The  equatioirs  used  are  different  before  and  after  motor  burnout. 

/V 

if  (time  <  MAVERICK  BURNOUT  TIME) 

{ 

mptr->speed  =  missile_util_eval_poly  (MAVERICK_BURN_SPEED_DEG, 
maverick  bum  speed  coeff,  time)  +  mptr->init  ^>eed; 

1 

else 

{ 

mptr->speed  =  missile_util_eval_poly  (MAVERICK_COAST_SPEED_DEG, 
maverick_ooast  speed  coeff,  time)-i-mpj’->init  speed; 

1 

/V 

*  Note  that  this  is  a  temporary  method  of  finding  turn  angle. 

/•/ 

mptr->cos_max_tuml01  =  cos  (sqrt  (mptr->speed  /  (SPEED_0  + 
mptr->init_speed))  •  THETA_0); 

if  (TrackUpdate  (mvptr  ->  sensorjd,  veh_list,  mptr  ->  location, 
mptr  •>  orientationll])  <  0) 

printf  ("missile_maverick  fly:  TrackUpdate:  %s\n”,  TrackErrString  ()); 

/V 

*  Find  the  target  point  to  which  the  missile  is  to  fly.  The  missile  ignores 

*  any  targets  until  it  is  armed. 

/V 

if  (time  <  MAVERI<3C_ARM_TIME) 

inissile_taiget_agm  (mptr,  NULL,  SIN_UNGUIDE,  COS_UNGUIDE,  SIN_CLIMB, 
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COS.CUMB,  SIN_LOCK,  COS_LOCK,  COS_TERM,  COS.LOSE); 
else 
{ 

TObjectP  object  =  mvptr  ->  object_being_tracked; 

/V 

*  Try  to  find  a  target.  If  one  is  found,  fly  towards  it  in  the 

•  proper  trajectory,  otherwise,  fly  in  a  search  trajectory. 

/•/ 

if  (object  !=  NO_OBJECD 

{ 

VECTTOR  targetjocation; 

GetLocationOfTObject  (object,  targetjocation); 
mvptr->target_vehiclejd  =  object  ->  var.vehidelD; 
inissile_taiget_agm  (mptr,  tai^ Jocation,  SIN_UNGUIDE, 

C(DS_UNGUIDE,  SIN  CLIMB,  COS  CLIMB,  SIN  LOCK,  C0S_L(X:K, 
COS.TERM,  COS_LC)^); 

1 

else 

( 

mvptr->target_vehiclejd.vehicle  =  vehiclelrrelevant; 
if  (TrackAcquire  (mvptr  ->  sensor Jd,  veh_list,  mptr  ->  location, 
mptr  ->  orientationjl])  <  0) 
printf  ("missile_maverick_fly:  TrackAcquire:  %s\n'’, 

TrackErrString  ()); 

missile_taiget_agm  (mptr,  NULL,  SIN_UNC31IIDE,  COS  UN(2UIDE, 
SIN_CUMB,  COSJCUMB,  SJN JXKK,  COSJXXX,  COS  TERM, 

COS  LOSE); 

) 

) 

/V 

*  Try  to  actually  fly  the  missile.  If  this  fails  stop  tire  missile  altogether 

*  and  return. 

/V 

if  (!missiIe_util_fIvout  (mptr)) 

n\issile_maverick_stop  (mvptr); 
return; 

J 

else 

{ 

/•/ 

*  If  the  missile  successfully  flew,  check  for  an  intersection  with  the 

*  groutrd  or  a  vehicle.  If  one  is  found,  blow  up  the  missile,  stop  its 

*  flyout  atKl  return. 

/V 

if  (missi]e_util_cotTun  check Jntersection  (mptr,  M5L  TYPE  MISSILE)) 

{ 

missiIe_util_conun_check_detonate  (mptr,  MSL_TYPE_MISSILE); 

inissile_maverick_stop  (mvptr); 

return; 

) 
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1 

/V 

*  If  the  missile  is  to  continue  to  fly,  return. 

/V 

return; 

1 

. . 

•  ROUTINE:  missile_maverick_stop  • 

•PARAMETERS:  mvptr  -  A  pointer  to  the  MAVERICK  missile  that  * 

•  is  to  be  stopped.  • 

•  RETURNS:  none  * 

*  PURPOSE:  This  routine  causes  all  concerned  to  forget  * 

*  about  the  missile.  It  should  be  called  when  • 

*  the  flyout  of  any  MAVERICK  missile  is  stopped  • 

•  (whether  or  not  it  has  exploded).  * 

. . . . / 


void  nussile_iitaverick  stop  (mvptr) 

MAVERICK  MISSILE ‘mvptr; 

{ 

/V 

*  If  the  world  has  been  told  to  worry  about  this  missile,  tell  it  to  stop 

*  then  release  missile  memory  for  use  by  other  missiles. 

/•/ 

if  (mvptr->mptr.sUte  =  MAVERICK_FLYING) 
missile_util_comm_stop_missile  (&(mvptr->mptr),  MSL_TYPE_MISSILE); 
mvptr->mptr3tate  =  MAVERICK_FREE; 

TrackSensorUnInit  (mvptr  ->  sensorjd); 
mvptr  ->  sensorjd  =  NULL; 

mvptr  ->  obJect_being_track^  =  NO_OBJECT;  /*  perhaps  call  break  lock?  •/ 


static  MAVEI\TCK_MISSILE  *missile_maverick _get_missile_from_sensor Jd  (sensorjd) 
int  sensor  id; 

{ 

register  MAVERICK_MISSILE  •mvptr  =  maverick_aiTay; 
register  int  i; 

for  (i  a  0;  i  <  num  mavericks;  i++,  mvptr-H-) 

{ 

if  (mvptr  ->  sensorjd  =  sensorjd) 
return  (mvptr); 

) 

return  (NULL); 

) 
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static  void  missile_maverick_Iock_handIer  (sensorjd,  object) 
int  sensorjd; 

TObjectP  (^jecb 

( 

MAVERJCK_MISSILE  ’rnyptr; 

if  (object  =  NO_OBJECD 

{ 

if  (TrackDontLock  (sensorjd,  object)  <  0) 
printf  ("MaverickLockHandler:  TrackDontLock:  %s\n", 

TrackErrStiing  ()); 
return; 

1 

if  ((mvptr  =  missile_maverick_get_nussile_fiom_sensorjd  (sensorjd)) 
!=NULL) 

{ 

/*  already  tracking  an  object,  but  because  of  the  delay  from  the  TrackAqcuire 
call,  the  lock  handler  has  been  invoked  again.  It  does  not  matter  if  it  is 
the  same  object  or  not  as  before.  Just  do  not  lock  again  */ 

if  (mvptr  ->  object  being_tracked  !=  NO  OBJECT) 

{ 

if  (TrackDontLock  (sensorjd,  object)  <  0) 
printf  ("MaverickLockHandler.  TrackDontLock:  %s\n", 
TrackErrStrii^  ()); 
return; 

) 

mvptr  •>  object_being_tracked  =  object; 
if  (TrackLock  (sensor_id,  object)  <  0) 
printf  ("MaverickL^kHandler:  TrackLock:  %s\n”,  TrackEnString  ()); 

1 

else 

{ 

printf  ("LockHandler  No  missile  for  Sensorid  %d\n”,  sensorjd); 

if  (TrackDontLock  (sensorjd,  object)  <  0) 

printf  ("MaverickLockHandler  TrackDontLock:  %s\n", 

TrackErrStiing  ()); 

) 

) 

static  void  missile_maverick_break Jock_handler  (sensorjd,  object) 
int  sensorjd; 

TObjectP  object; 

{ 

register  MAVERICK_MISSILE  •mvptr; 
if  (object  =  NO_OBJECD 
return; 

if  ((mvptr  =  missile_maverick_get_missile_from_sensor Jd  (sensorjd)) 
!=NULL) 
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I 

if  (mvptr  ->  object_being_tracked  ==  NO_OBJECr) 

{ 

printf  ("MaverickBreakLockHandler:  BREAK  LOCK  BUT  NOT  LOCKED  !!!\n'*) 
return; 

) 

if  (mvptr  ->  object  being_tracked  !=  object) 

( 

printf  ("MaverickBreakLockHandler:  BREAK  LOCK  ON  UNKNOWN  OBJECT!!!\n 

■); 

return; 

) 

if  (TrackBreakLock  (sensorjd,  object)  <  0) 
printf  ("MaverickBreakLockHandler:  TrackBreakLock:  %s\n", 

TrackErrString  0); 

mvptr  ->  object  being_trac^cd  =  NO_OBJECT; 

} 

else 

printf  ("BreakLockHandler:  No  missile  for  Sensorld  %d\n",  sensorjd); 


static  REAL  missile_maverick_detectibility  (sensorjd,  object,  mav Joe, 

mav_bore»ght, 

flags) 

int  sensorjd; 

TObjectP  object; 

VECTOR  mav  Joe; 

VECTOR  mav_boresight; 
int  flags; 

{ 

REAL  detectibility; 

VECTOR  target  Jocation; 

VECTOR  to_taiget; 

REAL  dotProduct; 

MAVERIC3C_MISSILE  •mvptr; 

/•  Get  location  of  object  •/ 

GetLocationOnObject  (object,  target  Jocation); 

/•  Determine  detectibility.  This  is  the  cosine  squared  of  the  angle 

•  between  a  vector  from  the  sensor  to  the  object  aivl  the  boiesight  of 

•  the  sensor  (for  now). 

•/ 

/•  Some  of  these  computations  may  be  duplicated  in  the  tracking  package. 

•  May  provide  object  calls  to  get  them  if  that  is  more  efficient. 

•/ 
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vec.sub  (taigetjocation,  mavjoc,  to_taiget); 
dotProduct  =  vec_dot_prod  (mav_boresight,  to_target); 
detectibility  =  sign  (dotProduct)  *  dotProduct  *  dotProduct  / 
vec_dot_prod  (to_target,  to_taiget); 

/*  if  the  object  is  outside  the  detection  cone  of  the  sensor, 

*  return  a  detectibility  of  0. 

V 

if  ((mvptr  =  missile_maverick_get_inissile_from_sensor_id  (sensorjd)) 

!=  NULL) 

{ 

switch  (mvptr  ->  mptr.state) 

{ 

case  MAVERICK.READY: 

niaverick_cone_threshold  =  MAVERICK_LOCK_THRESHOLD; 
break; 

case  MAVERIOC.FLYING: 

inaverick_cone_threshold  =  MAVERICK_HOLD_THRESHOLD; 
break; 

case  MAVERIC3C_FREE: 
default: 

printf  ("MaverickDetectibility:  Maverick  not  READY  or  FLYING\n"); 
maverick.conejhreshold  =  MAVERICK.UXK.THRESHOLD; 
break; 

) 

if  (detectibility  <  maverick_cone_threshold) 
detectibility  =  0.0; 

) 

else 

( 

printf  ("MaverickDetectibility:  no  missile  for  sensorlD  %d\n'', 
sensorjd); 

) 

return  (detectibility); 

J 

static  void  missile  maverick  object  update  () 

( 

) 


/• 

*  MissileMaverickSetPrelauirchlntervisibility 

• 

*  Called  from  ooiiunand  line  switch  processing  code  to  set  the  intervisibility 

*  interface  to  use  and  the  way  to  init  it. 

V 
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void  inissile_inaverick_set_prelaunch_intervisibility_inode  (mode) 
char^mode; 

{ 

if  (strlen  (mode)  >  STRING_LEN) 

{ 

{nintf  ("missile_maverick_set_prelaunch_inlervisibility:  type  string  to 
o  iongXn"); 
return; 

) 

strcpy  (prelaunch  intervis  method,  mode); 

) 

/• 

*  MissileMaverickSetLaunchedlntervisibility 

* 

*  Called  from  command  line  switch  processing  code  to  set  the  intervisibility 

*  interface  to  use  and  the  way  to  iitit  iL 
V 

void  missile_maverick_set_]aunched_intervisibility_mode  (mode) 
char*mode; 

{ 

if  (strlen  (mode)  >  STRING  LEN) 

{ 

printf  ('*missile_maverick_set_launched_intervisibility:  type  string  too 
long\n"); 
return; 

) 


strcpy  (in_fiight_intervis_method,  mode); 

) 

is_maverick_flying  (sensor_id) 
register  int  sensorjd; 

{ 

register  inti; 

for  (i  =  0;  i  <  num  mavericks;  i-H-) 

{ 

if  (maverick_aiTay[il.sensor  id  ==  sensor_id) 

( 

if  (maverick_arFay(i].n^}tr.state  =  MAVERICK_FLYING) 
return  (TRUE); 
else 

return  (FALSE); 

) 

) 

return  (FALSE); 

) 

static  void  (*sensor_uninit_fuiK;)  0; 
void  sensor.uninit.callback  (sensorjd) 
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int  sensorjd; 

{ 

(*sensor  uninit  funcX); 

1 

nussile  inaverick_prepare_to_uninit_seeker  (mvptr,  uninit_func) 
MAVERICK_MISSILE  •m^tr; 
void(*uninit  func)(); 

( 

sensor_uninit_func  =  uninit_func; 

TrackSensorUnInitPrep  (mvptr  ->  sensorjd,  sensor_uninit_caIlback); 

1 
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/•  SHeader  /a3/adst-cm/RWA/sinmet/vehicIe/libsrc/libnussile/RCS/nuss_nlos.c,v  1 
.1  1992/09/30 163952  cm-adst  Exp  $  */ 

/• 

*$Log:nuss  nlos.c,v$ 

•Revision  1.1  1992/09/30  163952  cm-^dst 

•  Initial  Version 

•/ 

static  char  RCS.IDJ]  =  "SHeader.  /a3/adst-cm/RWA/sunnet/vehicle/Iibsrc/libmissil 
e/RCS/nuss_nrosx,v  1.1 1992/09/30 163952  cm-adst  Exp  $"; 

/ . . . 

• 

•  Revisions: 

•  Version  Date  Author  Utle  SP/CR  Number 


•  1.2  10/23/92  R.  Branson  Data  File  Initiali- 

•  zation 

•  13  10/30/92  R.  Branson  Added  pathname  to  data 

•  directory 

•  1.4  11/25/92  R.  Branson  Changed  %i  to  %d 

. . . I 


. 

SP/CR  No.  Description  of  Modification 

Hard  coded  defines  changed  to  array  elements. 
Characteristics/parameter  data  array  added. 
Degree  of  polynomial  data  array  added. 

Added  file  reads  for  NLOS  dtaracteristics/ 
parameters,  bum  speed  coefficients,  and  coast 
speed  coefficients. 

Added  ”/simnet/data/"  to  each  data  file  pathname. 

. . 


•  FILE:  miss.nlosx  • 

•  AUTHOR:  Bryant  CoUard  • 

•MAINTAINER;  Bryant  CoUard  • 

•  PURPOSE:  This  file  contains  routmes  whidi  fly  out  a  • 

•  missile  %vith  the  characteristics  of  a  NLOS  • 

•  missile.  • 

•HISTORY:  1 1/25 /SSbryant:  Creation  • 
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A  HA/ 99  biyant:  Added  static  memory  allocation  * 
05/17/89  dan:  changed  hellfire  to  nlos  * 


*  Copyright  (c)  1988  BBN  Systems  and  Technologies,  Inc. 

•  All  rights  reserved.  • 


#include  "stdio.h" 

#include  "math.h" 

#include  "sim_types 
#include  "sim_dfcs.h" 

#include  "mass.stdc.h” 

#include  ''dgi_stdg.h" 

#include  "sim_cig_if.h" 

#include  "protocol/pro_hdr.h" 

#include  "protocol/ammoii" 

#include  Tibmatrix.h" 

#include  1ibmath.h" 

#include  Tibrva_util.h" 

#include  Tibnear.h” 

#include  "miss_nlos.h" 

#include  "libmiss_dfn.h" 

#include  "IibmissJoc.h" 

/•/ 

*  Define  missile  characteristics. 

/•/ 

#defineNLOS_LOCK  THRESHOLD  nlos.miss.charf  01 

#define  NLOS  MAX  TXJRN.ANGLE  nlos_mis8_char(  1] 
•define  NLOS_VERfiCAL_FUGKr_TIME  nlos_miss_char(  21 

•define  NLOS_DECLINE_FLIGHT_TIME  nlos_miss_charl  31 

•define  NLOS_LEVEL_FLiGHT_TS4E  nlos_iniss_char(  41 

•define  NLOS_ARM_'nME  nlos.missjduul  51 

•define  NLOS_BURNOUT_TIME  nlos_miss_char[  61 

•define  NLOS_MAX_FLIGi^_TIME  nlos_miss_char[  71 

•define  SPEED.O  nlos_miss_dtar{  8] 

•define  SPEED_1  nlos  miss  char[9] 

/••define  THETA.O  0.046542113*/  /•0.013962634*/ 

•define  THETA_0  nlos_nuss_chaiil01 

/•/ 

•  Set  parameters  which  will  control  flight  trajectory  behavior. 
/•/ 

•define  SIN_UNGUIDE  nlos_miss_char{lll 

•define  OOS_UNGUIDE  nlos_iniss_char(121 
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«defineSIN_CLIMB 
«defineCOS  CLIMB 
#defineSIN  LOCK 
#defineCOS_LOCK 
#defineCOS  TERM 
«defineCOS_LOSE 

/V 

*  The  following  terms  set  the  order  of  the  polynomials  used  to  determine 

*  the  ^>eed  or  cosine  of  the  maximum  allowed  turn  rate  of  the  missile 

*  at  any  point  in  time. 

/*/ 

#defineNLOS  BURN  SPEED.DEG  nlos_miss_poly_degI01 
#define  NLOS_COASf_SPEED_DEG  nlos_miss_poIy_degIl] 

/*/ 

*  NLOS  missile  characteristic  parameters  initialized  to  default  values. 

/V 

static  REAL  nlos_miss  chai{20]  = 

{ 

0.953153895,  /•NLOS.LOCK  THRESHOLD  •/ 

0.03490659,  /•NLOS  MAX  fURN  ANGLE  radians/tick  •/ 

48.0,  /•  NLOS.VTOTICAL.FUGHT  TIME  •/ 

105.0,  /•  NLOS.DECUNE.FUGHT  TIME  •/ 

140.0,  /•NLOS.LEVEL  FUGHT  TIME*/ 

20.0,  /•NLOS.ARM.TIME  ticks  (13  sec)  •/ 

223,  /•NLOS.BURNOUT.UME  ticks  (13  sec)*/ 

80003,  /*NLOS_MAX  FUarr  TIME  ticks  (120  sec)  */ 

1133333333,  /*  SPEED  0  •/ 

5333333333,  /*SPEEdIi  */ 

/*THETA_0  0.046542113*/  /*0.013962634*/ 

0.013962634,  /*  THETA  0  */ 

0.069756474,  /* SIN.UNGUIDE  4  deg*/ 

0.997564050,  /* COS  UNGUIDE  4  deg*/ 

0.004072424,  /*SINCLIMB  33  deg/sec*/ 

0.999991708,  /* COS  CLIMB  33 deg/sec*/ 

ai56434465,  /* SIN  LOCK  9  deg*/ 

0.987688341,  /* COS  LOCK  9  deg*/ 

0.984807753,  /*COS -reRM  0  deg*/ 

0.939692621,  /*COS  LOSE  20  deg*/ 

0.0 


/*/ 

*  The  following  terms  set  the  order  of  the  polyncnnials  used  to  determine 

*  the  ^>eed  and  turn  of  the  missile  at  any  point  in  time. 

/*/ 

static  int  nlos_miss_poly_deg[5]  = 

1,  /•  Speed  before  motor  burnout.  */ 


nlos_missjchanl3] 
nlos_miss_char{14] 
nlos_mias_chaTfl5] 
nlos_miss_chaiil6] 
nlos_miss_char{17] 
nlos_miss  chartlO] 
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3,  /•  Speed  after  motor  bumouL  •/ 

0, 

0, 

0 

); 

/V 

*  Coefficients  for  the  speed  polynontial  before  motor  burnout 
/V 

static  REAL  nlos  bum_speed_coeffl51  = 

{ 

0.03333333,  /‘a.O-m/tick  (67.0  m/sec)  •/ 

1.25777777,  /*  a_l  -  m/tick*^  (274.9732662  m/sec**2)  •/ 

0.0, 

0.0, 

0.0 

1; 


/V 

*  Coefficients  for  the  speed  pol)momial  after  motor  burnout 
/V 


static  REAL  idos  coast.speed  coeffIS]  = 

{ 


30.46972849, 

-9.7721160e-2, 

12433925fr4, 

-5.4061501e4, 


/*a  0-m/tick  (3272858074  m/sec)  V 
/•  a  1  -  m/tick^  (-21.4609544  m/sec^)  V 
/•a  2-m/tick*^(  0.8227650 m/sec^) •/ 
/•  a  3  -  m/tick*»4  ( -OX)133200  m/sec^4)  V 


OD 


); 


static  VECTOR  iUosJnitiaI_pos; 
static  VECTOR  iUos_fiiwJ_pos; 
static  VECTOR  peak.taiget; 
static  VECTOR  dedine.taiget; 
static  VECTOR  level.target; 
static  int  nlos.targetjd; 
static  int  itlos_req_id; 

/V 

*  Declare  static  ftmctions. 

/*/ 

static  void  missiIe_nlos_stop  (); 


/' 


♦ 


•  ROUTINE:  missiIe_nlos_init  • 

*  PARAMETERS:  mptr  -  a  pointer  to  the  NLOS  to  be 
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initialized.  * 

RETURNS:  none  • 

PURPOSE:  This  routine  initializes  the  state  of  the  * 
missile  to  indicate  that  it  is  available  and  * 
sets  values  that  never  change.  * 


void  inissile_nlos_init  (mptr) 

MISSILE  *mptr; 

( 

int  i; 

int  data_tmp_int; 
float  data_tmp; 
char  descriptl64]; 

HLE  ‘fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  iniss_nlos.c  READ  FROM  FILE  •/ 

fp  =  fbpenC/simnet/data/ms  nl_ch.d","r"); 
if(fp==NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/n\s_nl_chxl\n"); 
exitO; 

} 

rewind(fp); 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 
nlos_miss_chaifi]  =  data_tmp; 
fgetsfdescript,  64,  fp); 

/•  printfrnlos_iniss_char(%3d)is%I13f  %s",i, 
iUos_iniss_char{i],  descript);  •/ 

++i; 

) 

fcloseffp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  miss.nlosr:  READ  FROM  FILE  •/ 

n  DEFAULT  BURN  SPEED  DATA  FOR  iniss_nlos.c  READ  FROM  FILE  V 

fp  =  fopen(”/simnet/data/nis_nl  bs.d","r"); 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/ins_nl_bs.d\n"); 
exitO; 

) 


rewind(fp); 

/*  Read  degree  of  polynomial  */ 


-J-6- 


22  January  1993 
Reference  #  W003036 
Rev.  0.0 


Appendix  J  -  Source  Code  Listing  for  iniss_nlos.c 

fscarrf(fp,"%d",  &data_tinp_int); 

NIjOS_BURN_SPEED_DEG  =  data_tmp_int; 
fgets(descript,  64,  fp); 

/•  printf("nlos_miss_poly_deg(0)  is%3d  %s”,  NLOS_BURN_SPEED_DEG, 
descript);  •/ 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,”%f &data_tmp)  !=  EOF){ 
nlos_bum_speed_ooeffli]  =  data_tmp; 
fgets(descript,  64,  fp); 

/•  printfrnlos_bum_speed_coeff(%3d)  is%113f  %s”,  i, 

nlos_bum_speed_coeffIil,  descript);  •/ 

-M-i; 

) 

fcloseffp); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  miss_nlosx  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  SPEED  DATA  FOR  miss_nlos.c  READ  FROM  FILE  •/ 
fp  s  fopenC/simnet/data/ms  rtl  cs.d'','V'0; 
if(fp=NULL){ 

^rintffstderr,  "Caruiot  open  /sirrmet/data/ms_nl_cs.d\n"); 
exitO; 

) 

rewirKl(fp); 

/•  Read  degree  of  pol3niomial  •/ 

fsca.nf(fp,’'%d”,  &data_tinp_int); 

NLOS_OOAST_SPEED_DEG  =  data_tmp_int; 
fgetsfdesoipt,  64,  fp); 

/*  printf("nlos_iniss_poly_deg(l)  is%3d  %s",  NLOS_COASr_SPEED_DEG, 
descript);  •/ 

/*  Read  array  data  */ 
i=0; 

while(f^ni<fp,”%r,  Adata.tmp)  !=  EOF){ 
nIos_coast_speed_coeffIi]  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/•  printfC'nIos_coast_speed_coeff(%3d)  is%l  1 3f  %s",  i, 
nlos_coast_speed_coeffIi],  descript);  •/ 

-H-i; 

) 

fclose(fp); 

/•  END  DEFAULT  COAST  SPEED  DATA  FOR  miss_nlos.c  READ  FROM  FILE  V 
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mptr->state  =  FALSE; 

ii^>tr->max_flight_tiixte  =  NLOS_MAX_FLIGHT_T[ME; 
inptr->inax_tum_directions  =  1; 
n^tr->^)eed  =  SPEED_0; 

mptr->cos_inax_tum[(fl  =  cos  (NLOS_MAX_TURN_ANGLE); 
nlos_req_id  =  NEAR_NO_REQUEST_PENDING; 
nlos_taiget  id  =  vehicIelDIrrelevant; 

1 


/** . 

•  # 

•  ROUTINE:  nussiIe_nlos_fire  * 

•PARAMETERS:  mptr  -  A  pointer  to  the  NLOS  nrussile  that  * 

•  is  to  be  launch^.  • 

•  launch_point  -  The  location  in  world  • 

•  coordinates  that  the  missile  is  * 

•  launched  from.  • 

•  launch_to_world  -  The  transformation  matrix  of  • 

•  the  launch  platform  to  the  • 

•  world.  • 

•  launch_speed  •  The  speed  of  the  launch  • 

•  platform  (assumed  to  be  in  the  • 

•  direction  of  the  missile).  • 

•  tube  -  The  tube  the  missile  was  launched  from.  • 

•  RETURNS:  none  • 

•  PURPOSE:  This  routine  perfonns  the  functions  • 

•  speciflcally  related  to  the  firing  of  a  • 

•  Hellfire  missile.  • 

•  » 

. . . . . I 

void  missile_nlos_fire  (mptr,  launch_point,  launch_to_world,  launch_speed, 
tube) 

MISSILE  •mptr; 

VECTOR  launch_point; 

T_MATRIX  launch_to_world; 

REAL  launch_speed; 
int  tube; 

{ 

/V 

•  Set  the  initial  time,  location,  orientation,  and  ^peed  of  the  generic 

•  missile. 

/V 

mptr->tiine  =  0.0; 
mptr->speed  =  SPEED_0; 
vec_copy  (launch_point,  mptr->location); 
vec_copy  (launch_point,  nlos_initial_pos); 
mat_copy  (launch_to_world,  mptr->orientation); 
mptr->init_speed  =  launch  speed; 

/V 
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*  Tell  the  rest  of  the  world  about  the  firing  of  the  missile.  If  this 

*  cannot  be  done,  return. 

/V 

if  (!missile_util_conun_fire_missile  (mptr,  MSL_TYPE_MISSILE, 
anuiK^ellfire,  EIT_HELLFIRE, 
vehiclelDIrrelevant,  targetUnknown, 
fuzePointDetonating,  tube)) 

return; 

/*/ 

*  If  all  was  successful,  set  the  missile  state  to  TRUE  and  return. 

/V 

n^tr->state  =  TRUE; 

peak_targetl)(]  =  0.0; 
peak_target(Yi  =  1000.0; 
peak_target[zj  =  1000.0; 

vec_mat_mul  (peak_target,  mptr->orientation,  peak.target); 
vec_add  (mptr->location,  peak_tai;get,  peak_taiget); 
printf("peak_taTget:  x  =  %f,  y  =  %f,  z  =  %f\n", 
peak_tafget[)(], 
peak_tafget[Y], 
peak_taiget[Z]); 

decline_target[X]  s  0.0; 
dedine.targetJY]  =  1800.0; 
decline_target(zi «  0.0; 

vec.mat.mul  (decline.target,  mptr->orientation,  decline.taiget); 
vec_add  (mptr->Iocation,  dedine.taiget,  decline.taiget); 
printf("decl^e_taiget:  x  =  %f,  y  =  %f,  z  =  %f\n", 
decIine_taiget[X], 
decline_taiget[Y], 
dedine_target[Z]); 

level_taiget[X]  =  0.Q; 
level_taiget[Yl  =  2000.0; 

Ievel_taiget[zj  =  300.0; 

vec_inat_mul  (level_taiiget,  mptr*>OTientation,  level_larget); 
vec.add  (mptr->location,  level_tai^,  level_target); 
printf(level_target:  x  =  %f,  y  =  %f,  z  =  %f\n", 
level_targ^X], 
level_target[Yl, 
leveI_targetJZ]); 

return; 

) 


*  ROUTINE:  inissile_nlos_fly  • 

*  PARAMETERS:  mptr  -  A  pointer  to  the  NLC^  missile  that  * 

*  is  to  be  flown  ouL  * 
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*  targetjocation  -  The  location  in  world  * 

*  coordinates  of  the  target.  * 

*  RETURNS:  none  * 

*  PURPOSE:  This  routine  performs  the  functions  * 

*  specifically  related  to  the  flying  a  NLOS  * 

*  missile.  • 

. / 

void  missile_nlos_fly  (nr^tr,  nlos_targetJoc,  taiget.scheme) 

MISSILE  *mptr; 

VECTOR  nlos_taiget_Ioc; 
int  taiget.schenrte; 

( 

register  REAL  time;  /*  The  current  time  after  launch  (ticks).  */ 
register  REAL  temp; 

VehicleAppearancePDU  *taiget;  /*  A  pointer  to  the  target  vehicles 
appearance  packet.  *! 


/• 

timed_printf("target_scheme  =  %d\nloc  %f  %f  %f\n", 
target.scheme, 
nlos_targetjoc[0], 
nlos_targetJocj  1], 
nlos  target  loc(2j 
); 

V 

/•/ 

*  Set  and  _time_.  This  is  created  mostly  for  increased  readablity. 
/•/ 

time  =  mptr->time; 

if  (time  >800X1) 
mptr->speed  =  SPEED_1; 


/V 

*  choose  the  correct  taigettting  option  depending  on  flight  time 

/V 

if  (time  =  NLOS_LEVEL_FUGHT_TIME) 
printf("extra_waypoint:  %f  %f  %f\n", 
mptr->locatio^0], 
mptr->location(  1  ], 
mptr->location[2] ); 

if  (time  <  NLOS_VERTICAL_FUGHT_TIME) 
missile  nlos  fly  to_point(mptr,  peak  target); 
else  if  (tirne  <  NLCK_DECLINE_FUGHT_TIME) 
missile  nlos  fly  t04X>inKmptr,  declme_taiget); 
else  if  (time  <  NLOS  LEVEL  FU(^  TIME) 

leveI_target{Z]  =  mptr*>location[Z]; 
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missile.nlos  fly_to_poinKmptr,  level_taiget); 

1 

else 

I 

switch  (target  scheme) 

( 

case  NLOS_FLY_TO_POINT_IN_SPACE: 
missile_nlos_fly_to_point(mptr,nlos_targetJoc); 
break; 

case  NLOS_FLY_TO_POlNT_RELATIVE: 
mis8ile_target_nlos(mptr,  nlos_taTget_loc); 
break; 

case  NLOS_FLY_TO_TARGET: 
target  =  near_get_preferred_veh_near_vector  ( 

&nlos_target_id, 

RVA  ALL.VEH, 

mptr->location, 

mptr->orientation(ll, 

NLOS_L<X3C_THRESHOLD, 

&nlos_req_id); 
if  (target  NULL) 

{ 

tiined_print(("iniss_nlos:  target  locked  on\n"); 
missile_target_pursuit  (mptr,  target); 

) 

else 

{ 

missile  target  unguided(mptr); 

) 

break; 

default: 

printf("rrussile_nlos_fly:  bad  target_scheme\n”); 
break; 

1 


/V 

*  check  to  see  if  the  missile  is  "out  of  gas" 

/V 

if  (mptr*>time  >  ISOOi)) 
m^->taiget[Z]  =  0.0; 

/V 

*  Tty  to  actually  fly  the  missile.  If  this  fails  stop  the  rtussile  altogether 

*  and  return. 

/V 

if  ('.missile  util  flyout  (mptr)) 

( 
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inissile_nlos_stop  (mptr); 

if  (taiget_scheme  ==  NLOS  FLY  TO  TARGET) 

( 

nlos_taiget_id  =  vehidelDIrrelevant; 
nlos_peq_id  =  NEAR  NO_REQUEST  PENDING; 

) 

return; 

1 

else 

( 

/V 

*  If  the  missile  successfully  flew,  check  for  an  intersection  with  the 

*  gn>und  or  a  vehicle.  If  one  is  found,  blow  up  the  missile,  stop  its 

*  flyout  and  return. 

/V 

if  (missile_util_oomm  check_intersection  (mptr,  MSL_TYPE_MISSILE)) 

( 

missile_util_comm_check_detonate  (mptr,  MSL_TYPE_MISSILE); 

missile_nlos_stop  (mptr); 

return; 

1 

1 

/V 

*  If  the  missile  is  to  continue  to  fly,  retiun. 

/V 

return; 

) 


•  ROUTINE:  missile_idos_stop  • 

•  PARAMETERS:  mptr  -  A  pointer  to  the  NLOS  missile  foat  * 

•  is  to  be  stopped.  * 

•RETURNS:  none 

•  PURPOSE:  This  routine  causes  all  concerned  to  forget  • 

•  about  the  missile.  It  should  be  called  when  • 

•  the  fl)^ut  of  any  NLOS  missile  is  stopped  * 

•  (whether  or  not  it  has  exploded).  Note  that  * 

•  this  routine  can  only  be  called  within  this  • 

•  module.  • 

•  • 

. . 

Static  void  missile_nlos_stop  (mptr) 

MISSILE  •mptr; 

( 

/•/ 

•  Tell  the  world  to  stop  worrying  about  this  ntissile  then  release  the 

•  memory  for  use  by  other  missiles. 

/•/ 

printf(1nitial_pos  =  %f  %f  %f\n". 
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nlos_initial_posIO], 

nIos_initial_posI1], 

nlos_initial_fx>s[2]); 

printfrfinal_position  =  %f  %f  %f\n", 
n^tr->location[0], 
nnptr->Iocation[l  ], 
inptr->location[2j); 

ini88Ue_util_coinin_stop_niissile  (mptr,  MSL_TYPE_MISSILE); 

n^>tr->state  =  FALSE; 

} 
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The  following  appendix  contains  the  source  code  listing  for 
miss_stinger.c  for  convenience  in  document  maintenance  and 
imderstanding  of  the  CSU. 
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/*  SHeader  /a3/adst-cm/RWA/sinmet/vehide/Iibsrc/libmissUe/RCS/miss_stinger.c, 
V  1.1 1992/09/30 163952  cnMdst  Exp  $  •/ 

/• 

*  $Log:  niiss_stinger.c,v  $ 

*  Revision  1.1  1992/09/30  165952  cnvodst 

*  Initial  Version 

» 

•/ 

static  char  RCS.IDD  =  "SHeader  /a3/adst-cm/RWA/sinwet/vehide/lib9'c/lilHnis8il 
e/RCS/miss_stingerx,v  1.1 1992/09/30 165952  cm-adst  ExpS"; 

. 

*  Revisions: 

« 

*  Version  Date  Author  Utle  SP/CR  Number 


*  15  10/23/92  R.  Branson  Data  Hie  Inidali- 

*  zation 

*  15  10/30/92  R.  Branson  Added  pathname  to  data 

*  directory 

*  1.4  11/25/92  R.  Branson  Changed  %i  to  %d 

. . . . / 

. 

*  SP/CR  No.  Description  of  Modification 


Hard  coded  defines  changed  to  array  elements. 
Characteiistics/paraineter  data  array  added. 
Degree  Of  polynomial  data  array  added. 

Added  file  reads  for  stinger  dumcteristics/ 
parameters,  bum  speed  coefficients,  and  coast 
speed  coefEdents. 

Added  "/siinnet/data/"  to  eadi  data  file  pathname. 


*  FILE:  mis6_stinger.c  * 

*  AUTHOR:  Bryant  Collard  * 

*MAINTAINER:  Bryant  Cbllard  » 

*  PURPOSE:  This  file  contains  routines  whidt  fly  out  a  * 

*  missile  with  the  characteristics  of  a  STINGER  * 

*  missile.  • 

*  HISTORY:  12/08/88  biyant  Creation  • 
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*  04/24/89  bryant:  Added  static  memory  allocation* 

*  08/07/90  bryant:  NIU  librva  modifications.  * 

*  » 


*  Copyright  (c)  1988  BBN  Systems  and  Technologies,  Inc. 

•  All  rights  reserved.  * 


#include  "stdio.h" 

#include  "math.h" 

#include  "sim_types.h" 

#iiKlude  ''sim_d^  Ji” 

#include  ”basic.h" 

#iiKlude  "mun_type.h" 

#include  "libmap.h" 

#iiKlude  Tibmatrix  Jt” 

#include  "libnear Ji” 

/•—  need  Range_Squared  info  — */ 

#include  TibhulLh" 

#include  "libkinii" 

/• - •/ 

#include  "miss.stinger.h" 

#include  libmissile  Ji" 

#include  "Ubmiss.dfn.h" 

#iitclude  "libmiss.locJi” 

/•/ 

*  Define  missile  characteristics. 

/V 

idefine  STINGER_BURNOUT_TIME  stinger_inissjchar{  0] 

#define  ST1NGER_MAX_FLIGHT_TIME  stinger_miss_char[  IJ 
#define  STINGER_LOCK_THRESHOLD  stinger_miss_char[  2] 

#define  SPEED_0  stinger_miss_char(  3J 

#define  THETA_0  stinger_miss_charl  4| 

#define  INVEST_DIST_SQ  stinger_miss_char(  5] 

#define  FUZE_DIST_SQ  stinger_miss_char{  6] 

/V 

*  Define  the  states  the  STINGER  MISSILE,  can  be  in. 

/V 

#define  STINGER.FREE  0  /*  No  missile  assigned.  */ 

#define  STINGER.READY  1  /*  Missile  assigned  to  ready  state.  */ 

#define  STINGER.FLYING  2  /*  Missile  assigned  to  flying  state.  */ 

/•/ 

*  The  following  terms  set  the  order  of  the  polynomiab  used  to  determiite 
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*  the  q)eed  of  the  missile  at  any  point  in  time. 

/*/ 

static  int  stinger  miss  poly  degI2]  = 

{ 

1,  /*  bum  speed  poly  degree  V 
3  /*  coast  speed  poly  degree*/ 

}; 

/•/ 

*  Stinger  missile  characteristic  parameters  initialized  to  default  values. 

/•/ 

static  REAL  stinger  miss  charJlS]  = 

{ 

19.125,  /‘ticks  (1.275  sec)*/ 

400.000,  /‘ticks  (26.667  sec)*/ 

0.953153895,  /*  cos  (125  deg)  **  2  */ 

5353333333,  /*  m/tick  (800  m/sec)  */ 

0.0174,  /‘rad/tick  (15.0  deg/sec)*/ 

90000.0,  /*(300m)**2*/ 

400.0,  /*(20m)**2*/ 

05, 

0.0, 

0.0, 

05, 

05, 

05, 

05, 

05 

1; 

/*/ 

*  Coefficients  for  the  ^}eed  polynomial  before  motor  burnout  initialized  to 

*  default  values. 

/*/ 

static  REAL  stinger  bum  speed.coeffJSTINGER  BURN_SPEED  DEG  + 1]  - 

( 

1.9,  /*a_0- m/tick*/ 

2589324619  /*  a  1  -  m/tick**2  */ 

); 

/*/ 

*  Coefficients  for  the  ^peed  polynomial  after  motor  burnout  initialized  to 

*  default  values. 

/*/ 

static  REAL  stinger  coast_speed_coeffiST1NGER  COAST  SPEED  DEG  -*-!]  = 

{ 

56.73662833,  /‘a  0- m/tick*/ 

-ai82369351,  /*  a  1  -  m/tick**2  */ 

25302001e^,  /‘a  2 - m/tick**3 */ 
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-1.0176282e-7  /’a  3 - m/tick»*4 •/ 

1; 

/V 

*  Memory  for  the  missiles  is  declared  in  vehicle  specific  code.  During 

*  initialization,  a  pointer  is  assigned  to  this  memory  then  all  memory 

*  issues  are  dealt  with  in  this  module. 

/V 

static  STINGER_MISSILE  *stinger_array;  /•  A  pointer  to  missile  memoiy.  •/ 
static  int  num_stingers;  /*  The  number  of  defined  missiles.  */ 

static  ObjeetType  stinger_ammo_type  =  munition_US_StingBr; 
static  REAL 

max  range  limit,  /*  [  MISSILE  US  MAX_RANGE  LIMIT  ]  */ 

max~*ange” squaied,  /•  [  MISSILE  US.MAX^RANGE  LIMIT  ^  2  ]  •/ 

speed.factor;  /•  t  MISSILE.US.SPEED.FACTOR  1  •/ 

/V 

*  Declare  static  functions. 

/•/ 

static  void  missile_stinger_fly  0; 


ROUTINE:  missile_stinger_init  * 

PARAMETERS:  missUe.array  •  A  pointer  to  an  array  of 
STINGER  missiles  defined  in  * 
vehicle  specific  code.  * 
num.missiles- The  number  missiles  defined  in  * 
_missile_array_.  • 

RETURNS:  none  * 

PURPOSE:  This  routine  copies  the  parameters  into 
variables  static  to  this  module  and  initializes  * 
the  state  of  all  the  missiles.  It  also  * 

initializes  the  proximity  fuze.  * 


void  missile_stinger_init  (missile.array,  num.missiles) 
STINGER_^SSILE  missile.arrayD; 
intnum  missiles; 

{ 

int  i;  /•  A  counter.  •/ 
int  j; 

int  data.tmp.int; 
float  data^tmp; 
char  descriptlM]; 

FILE  •fp; 
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/•  DEFAULT  CHARACTERISTIC  DATA  FOR  miss.stinger^:  READ  FROM  FILE  */ 

fp  =  fopen("/siinnet/data/ins_st_ch.d",V); 
if(fp==NULL){ 

fprintffstderr,  "Caimot  open  /siinnet/data/ins_st_chxl\n"); 
exitO; 

1 

rewind(fp); 

/•  Read  array  data  •/ 

j=0; 

while(fscanf(fp,"%f &data_tmp)  !=  EOF){ 
stir\ger_miss_char[j]  =  data_tit^; 
fgetsCdesoript,  64,  fp); 

/•  printfC'stinger_miss_char(%3d)  is%113f  %s",  j, 
stinger_miss_char[jl, 
descript);  */ 

-H-p 

) 

fclose(fp); 

/•  END  DEFAULT  CHARACTERISTIC  DATA  FOR  iniss_stinger.c  READ  FROM  FILE  */ 

/•  DEFAULT  BURN  SPEED  DATA  FOR  miss_stinger.c  READ  FROM  FILE  •/ 
fp  =  fopen("/simnet/data/ins_st_bs.d",V); 
if(fp=NULL){ 

^nintffstderr,  "Caimot  open  /sinuiet/data/nis_st_bsxl\n"); 
exitO; 

) 

rewirtdffjp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data_tmp_int); 
stinger_iniss_poly_deg(0]  =  data_tmp_int 
fgetsfdescript,  64,  fp); 

/•  printf("stinger_iniss_poly_deg(0)  is%3d  %s",  J, 
stinger.miss _poly_de^01,  descript);  */ 

/*  Read  array  data  */ 

j=0; 

while(fscanf(fp,"%r,  &data_tmp)  !=  EOF){ 
stinger_buin_speed_coeff[j]  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/•  printf("stinger_bum_q3eed_coeff(%3d)  is%113f  %s",  j, 
8tinger_bum_^jeed_coeffIjI, 
descript);  •/ 
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++j; 

) 

fclose(fp); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  mias_stingerx  READ  FROM  FILE  */ 

/•  DEFAULT  COAST  SPEED  DATA  FOR  miss.stingerx  READ  FROM  FILE  */ 
fp  =  fopenr/simnet/data/ms_st_csxJ","r"); 
if{fp==NULL){ 

fprintfCstderr,  "Cannot  open  /simnet/data/ms_st_cs.d\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,”%d",  &data_tmp_int); 
stinger_miss_poIy_d^l]  =  data_tmp_int; 
fgetsfdesaript,  64,  fp); 

/*  printf("stinger_miss_poIy_deg(l)  is%3d  %s”,  j, 

stinger_miss_poly_degIll,  descript);  */ 

/*  Read  array  data  */ 

H); 

while(fscanf<^,"%r,  &data_tmp)  !=  EOF){ 
atinger_coast_speed_coeffI)]  s  data.tmp; 
fgets(descript,  fp); 

/*  printfrstinger_ooast_speed_coeff(%3d)  is%l  1 3f  %s",  j, 

stinger_coast_speed_coeffI|], 
descript);  •/ 

++i; 

} 


fcloseffp); 

/•  END  DEFAULT  COAST  SPEED  DATA  POT  miss.stingerx  READ  FROM  FILE  •/ 

num.stingers  =  num.missiles; 

8tinger_aiTay  =  irussile.array; 
for  (i  =  0;  i  <  num  missiles;  i-M-) 

( 

stinger_arFay[i].mptr.state  =  STINGER_FREE; 

stinger_arTay[i].mptr.max_fUght_time  =  STINGER_MAX_FLIGHT_TIME; 
stinger  array(i].mptr.max  turn  directions  =  1; 

) 

qreed.factor  =  MISSILE_US_SPEED_FACTOR; 
max_iange_Iinut  =  MISSILE_US_MAX_RANGE_LIMIT; 
max_range_squared  =  max_rangejimit  •  max_range_limit; 
stinger  ammo  type  =  munition  US  Stinger; 

/V 
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*  Initialize  the  proximity  fuze. 

/V 

missile  fuze  prox  initO; 

) 


void  missile_stinger_set_^peed_factor(  scale_speed ) 

REAL  scale  speed; 

{ 

speed  factor  =  scale_speed; 

) 

void  missile_stinger_set_max_range_limit(  limit_range ) 
REAL  limit  range; 

( 

max_range_limit  =  limit_range; 

max_range_squared  =  max  range  limit  *  max_range_limit; 

} 

void  missile_stinger_set_ammo_type(  ammo ) 

ObjeetType  ammo; 

{ 

stinger_ammo  type  =  ammo; 

) 


. 

•  ROUTINE:  missile  stinger  ready  * 

•PARAMETERS:  none  • 

•  RETURNS:  A  pointer  to  a  missile  that  is  currently  * 

•  available.  • 

•  PURPOSE:  This  routine  finds,  if  possible,  a  missile  that  • 

•  is  not  being  used,  puts  it  in  a  ready  state  and  * 

•  returns  a  pointer  to  it.  • 

•  • 

. . / 


STINGER  MISSILE  •missile  stinger  ready  () 

{ 

int  i;  /•  A  counter.  •/ 

/•/ 

•  Try  to  find  a  free  missile. 

/•/ 

fOT  (i  s  0;  i  <  num  stingers;  i-t-f) 

( 

/•/ 

•  If  a  free  missile  is  found,  put  it  in  a  ready  state,  dear  the  target 

•  ID  aitd  return  a  pointer  to  it 
/•/ 

if  (8tinger_aiTay(i].mptr.state  —  STINGER.FREE) 
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( 

stinger_aiTay[i]  jnptr^tate  =  i»llNGER_READY; 
stinger_array[i].target_vehicle_id.vehide  =  vehiclelrrelevant; 
return  (&stinger_arTay[i]); 

1 

} 

/V 

*  If  no  free  missile  is  found,  return  a  NULL  pointer. 

/•/ 

return  G^IULL); 

) 


/** . . . . . 

•  ROUTINE:  inissile_stingerj)re_launch  • 

*  PARAMETERS:  sptr  -  A  pointer  to  the  missile  that  is  to  be  * 

•  serviced.  • 

*  launch_point  •  The  location  of  the  missile  in  * 

*  world  coordinates.  * 

*  Iaunch_to_world  -  The  transformation  matrix  of  * 

*  the  rrtissile  to  the  world.  * 

•  veh_list  -  Vehicle  list  ID.  • 

•RETURNS:  none  • 

•  PURPOSE:  This  routine  is  called  after  a  missile  has  been  • 

*  readied  and  before  it  has  been  launched.  It  * 

•  determines  if  the  seeker  head  can  see  a  target  • 

•  and,  if  it  can  see  a  target,  stores  its  • 

•  position.  • 

#  » 

. . / 

void  missile_stinger_pre_Iaunch  (sptr,  Iaunch_point,  ]aundi_to_world,  vehjist) 
STINGER_MISSILE  •sptr; 

VECTOR  iarmch_point; 

T_MATRIX  IaurKh_to_worId; 
intveh  list; 

{ 

VehicleAppearanceVariant  •target;  /•  A  pointer  to  the  target  vehicles 
appearance  packet.  •/ 

/•/ 

•  Try  to  fitKl  a  target. 

/•/ 

target  =  near _get _preferred_veh_near_vector  (&(sptr*>target_vehicle_id), 
veh  list,  lautrch_point,  launch  to_world{l], 

STINGER  LOCK.THRESHOLD); 

/•/ 

•  If  a  target  is  found,  store  its  location. 

/•/ 

if  (target  !=  NULL) 

{ 
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8ptr->taiget_vehicle_id  =  taiget->vehicleID; 

missile  taiget  pursuit  (A(q7tr'>ii^),  taiget->location); 

) 

else 

sptr->taiget  vehicle_id.vehicle  =  vehiclelrrelevant; 

) 


. . . 

•  ROUTINE:  missile_stinger_fire  • 

•PARAMETERS:  q>tr -  A  pointer  to  the  STINGER missUe  that  * 

•  is  to  be  launched.  • 

•  launch_point  -  The  location  in  world  • 

•  coordinates  that  the  missile  is  • 

•  launched  from.  • 

•  launch_to_world  -  The  transformation  matrix  of  • 

•  the  launch  platform  to  the  • 

•  world.  • 

•  launch_speed  -  The  speed  of  the  launch  • 

•  platform  (assumed  to  be  in  the  • 

•  direction  of  the  missile).  * 

•  tube  -  The  tube  the  missile  was  launched  horn.  * 

•  RETURNS:  TRUE  for  a  successful  launch  and  FALSE  for  an  • 

•  unsuccessful  launch. 

•  PURPOSE:  This  routine  performs  the  functions  • 

•  specifically  related  to  the  firing  of  a  • 

•  STINC^ERmissae.  • 

. . 

int  missile_stinger_fire  (sptr,  launch_point,  launch_to_world,  launch.speed, 
tube) 

STINGER_MISSILE  •sptr; 

VECTOR  launch_point; 

T_MATRIX  launch_to_world; 

REAL  launch_speed; 
int  tube; 

{ 

int  i;  /•  Counter.  •/ 

MISSILE  •mptr;  /•  Pointer  to  the  particular  generic  missile 
pointed  at  by  sptr_.  •/ 

/•/ 

•  Get  a  pointer  to  the  generic  elements  of  the  STINGER  missile.  This 

•  improves  code  readability. 

/•/ 

mptr  -  &(sptr->mptr); 

/•/ 

•  Set  the  initial  time,  location,  orientation  and  speed  of  the  generic 

•  missile. 

/V 
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nnptr->tiine  =  0.0; 

vec.copy  (launch_point,  mptr->Iocation); 
mat_copy  flaunch_to_world,  inptr->orientation); 
ii^>tr->speed  =  launch_^)eed  + 

(speed.factor  • 

inissile_util_eval_poly  (STINGER_BURNJSPEED_DEG, 
si>nger_bum_speed_coeff,  0.0)); 
mptr->init_speed  =  launch_spe^; 

/V 

*  Indicate  that  the  proximity  fuze  has  no  vehicles  it  is  tracking. 

/V 

^>tr->pptr  =  NULL; 

/V 

*  Determine  range  equations  for  intercept  targeting. 

/V 

^tr->stinger_bum_range_coefftO]  =  0.0; 

for  (i  =  1;  i  <=  STINGER  BURN  SPEED  DEG  + 1;  i++); 

{ 

sptr->stinger_burn_iange_coeffIi]  =  (1.0  /  ((REAL)  i))  • 
stinger  bum  speed  coeffli  - 1]; 

1 

^>tr->stinger_bum_range_ooeffll]  +=  launch.speed; 

mis8ile_target_intieroept_Bnd_poly  (STINGER_COAST_SPEED_DEG,  launch_q3eed, 
stinger_coast_spoBd_coeff,  sptr->stinger_coast_rangejcoeff, 
sptr->stinger_coast_range_2_coef0; 

/V 

*  Tell  the  rest  of  the  worid  about  the  firing  of  the  missile.  If  this 

*  cannot  be  done,  release  the  missile  memory  and  return  FALSE. 

/•/ 

if  (!missile_utiI_oonun_fire_missile  (mptr,  MSL_TYPE_MISSILE. 

map_get_ammo_entiy_from_network_type  (stinger_ammo_type), 
stinger_anruno_type,  stinger_ammo_type, 

4c(sptr->target_vehicle_id),  taigetlsV^de,  objectlrrelevant, 
tube)) 

( 

mptr->state  =  STINGER.FREE; 
return  (FALSE); 

) 

/V 

*  If  all  was  successful,  set  the  nussile  state  to  STiNGER_FLYING  and 

*  return  TRUE. 

/V 

mptr'>state  =  STINGER_FLYING; 
return  (TRUE); 


*  ROUTINE:  missile  stinger  fly  missiles 

*  PARAMETERS:  vehlust  -  Vehicle  Ust  ID. 
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•  RETURNS:  none  * 

*  PURPOSE:  This  routine  flies  out  all  missiles  in  a 


flying  state. 


void  missile_stinger_fly_inissiles  (veh_list) 
int  veh_list; 

{ 

int  i;  /*  A  counter.  •/ 

/V 

*  Fly  out  all  flying  missiles. 

/•/ 

for  (i  =  0;  i  <  num_stingers;  i++) 

{ 

if  (stinger_anay[i].mptr  .state  ==  ST1NGER_FLYING) 
missile  stinger_fly  (&(stinger_arTay[iI),  vehjist); 

} 

1 


•  ROUTINE:  missile_stinger_fly  • 

*  PARAMETERS:  sptr  -  A  pointer  to  the  STINGER  missile  that  * 

•  is  to  be  flown  out  • 

•  veh_list  -  Vehicle  list  ID.  • 

•  RETURNS:  none  • 

*  PURPOSE:  This  routine  performs  the  functions  * 

*  specifically  related  to  the  flying  a  STINGER  * 

*  missile.  * 


static  void  missile_stinger_fly  (^Ttr,  veh_list) 

S'llNGER.MISSILE  •sptr; 
intveh  list; 

( 

register  MISSILE  •mptr;  /*  A  pointer  to  the  generic  aspects  of 
_q3tr_.  •/ 

REAL  time;  /•  The  current  time  after  launch  (ticks).  •/ 

VehicleAppearanceVariant 

•target;  /•  A  pointer  to  the  targets  appearance 

packet.  •/ 

/•/ 

•  Set  _mptr_  and  _time_.  These  values  are  created  mostly  for  iiKieased 

•  readablity. 

/•/ 

n^jtr  =  Ac(sptr->mptr); 
tiiire  =  mptr*>time; 

/•/ 
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*  Find  the  current  missile  ^)eed  and  the  cosine  of  the  maximum  allowed  turn 

*  angle.  The  equatioirs  used  are  different  before  aivl  after  motor  burnout. 

/V 

if  (time  <  STIN(3ER_BURNOUT  TIME) 

{ 

mptr->speed  =  missile_util_eval_poly  (STINGER_BURN_SPEED_DEG, 
stinger  bum  speed  coeff,  time)  +  nq>tr->init  speed; 

) 

else 

{ 

mptr->speed  =  missile_util_eval_poly  (STINGER_COAST_SPEED_DEG, 
stin^  coast  speed  coeff,  time)  +  mptr->init_speed; 

) 

/V 

*  Note  that  this  is  a  temporary  method  of  fiiKling  turn  angle. 

/V 

mptr->cos_max_tumIO)  =  cos  (sqrt  (mptr->speed  /  (SPEED_0  + 
mptr->irut  speed))  *  THETA  0); 

/V 

*  Try  to  End  a  target.  If  oire  is  found,  fly  towards  it  in  the 

*  proper  trajectory,  otherwise,  fly  in  a  straight  liire. 

/V 

target  =  near_get_preferred_veh_r»ear_vector  (&(sptr->target_vehicle_id), 
Vdr.Iist,  mptr->location,  mptr'>orientation{l], 
STINGER_IX)CK_THRESHOLD); 
if(  max_tangejimit  >0 

kinematics.Fairge.squared  (veh_kinematics,  mptr->location)  > 
max_iange_squared ) 
missile_target_grourvl(  mptr ); 
else  if  (target  !=  NULL) 

( 

sptr->taiget_vehiclejd  =  taTget->vehicleID; 
if  (time  <  STINGER_BURNOUT_TIME) 
missile_taTget_intercept_pre_bumout  (mptr,  target, 

sptr->stinger_bum_range  coeff,  STINGER_BURNOUT_TIME, 

stinger_burn_speedIdeg  + 1, 

sptr->stinger_coast_range_coeff, 
sptr->stinger_coast_range  2  coeff, 
STINGER_C0AST_SPEED_DEG  + 1); 

else 

missile_target_intercept  (mptr,  target, 
sptr->stirrger_coast_range_coeff, 
sptr->stinger_coast_range  2  coeff, 

STDMGER.COAST  speed  deg  + 1); 

) 

else 

I 

8ptr->target_vehicle_id.vehicle  =  vehicleirrelevant; 
missile  target  unguided  (mptr); 

) 

/V 
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*  Try  to  actually  fly  the  missile.  If  this  fails,  stop  the  missile 

*  altogether  and  return. 

/•/ 

iffimissile  util  flyout  (n^>tr)) 

{ 

missile_stinger_stop  (sptr); 
return; 

) 

else 

{ 

/•/ 

*  If  the  missile  successfully  flew,  process  the  proximity  fiize. 

/V 

if  (sptr->target_vehicle  id.vehicle  =  vdudelnelevant) 
missUe_fuze_prox  (mptr,  MSL_TYPE_MISSILE,  PROX_FUZE_ON_ALL_VEH, 
&(sptr->taTget  vehicle  id),  A(^tr->pptr), 
veh.list,  INVEST_DIST_Sa  FUZE_DIST_SQ); 
else 

missile_fuze_|nox  (mptr,  MSL_TYPE_MISSILE,  PROX_FUZE_ON_ONE_VEH, 
A(sptr->taiget  vehidejd),  A(^)tr->pptr), 
veh_Ust,  INVEST  DIST.Sa  FUZE  DIST  SQ); 

/V 

*  If  the  missile  has  intersected  of  self  detonated,  blow  it  up,  stop  its 

*  flyout  and  return. 

/•/ 

if  (missile.utiljoommjcheckjdetonate  (mptr,  MSLJTYPE.MISSILE)) 

missile_stinger_stop  (^)tr); 
return; 

) 

) 

/•/ 

*  If  the  missile  is  to  continue  to  fly,  return. 

/V 

return; 

) 


ROUTINE:  missile_sunger_stop  * 

PARAMETERS:  ^Ttr  •  A  pointer  to  the  STINGER  missile  that  * 
is  to  be  stopp^.  * 

RETURNS:  none  * 

PURPOSE:  This  routine  causes  all  concerned  to  forget  * 
about  the  missile.  It  should  be  called  when  * 
the  flyout  of  any  STINGER  missile  is  stopped  * 
(whether  or  not  it  has  exploded).  * 


void  missile.stinger.stop  (sptr) 
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STINGER  MISSILE  ‘sptr; 

{ 

/V 

*  If  the  missile  has  been  fired,  tell  the  world  to  stop  it  and  dear  the 

*  proximity  fuze  targets.  Release  missile  memory  for  use  other  missiles. 

/V 

if  (sptr->mptr.state  =*=  STINGER_FLYING) 

{ 

missile_util_comm_stop_missile  (&(sptr->mptr),  MSL_TYPE_M1SSILE); 
missile  fuze  prox  stop  (&(sptr->pptr)); 

) 

q}tr->ii^9tr.state  =  STINGER_FREE; 


1 
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/•  SHeader  /a3/adst-cm/RWA/siinnet/vehide/Hbsrc/Ubmi8sile/RCS/miss_tow.c,v  1. 
1 1992/09/30 16:3952  cm-adst  Exp  $  •/ 

/• 

*$Log:niiss  tow.c,v$ 

*  Revision  1.1  1992/09/30  165952  cm-adst 

*  Initial  Version 

* 

•/ 

static  char  RCS.IDD  =  "SHeader  /a3/adst-cm/RWA/simnet/vehide/libsrc/libmissil 
e/RCS/miss_tow.c,v  1.1 1992/09/30 165952  cm-adst  Exp  $"; 

. . 

*  Revisions: 

•  Version  Date  Author  Title  SP/CR  Number 


*  12  10/23/92  R.  Branson  Data  File  Initiali- 

*  zation 

*  15  10/30/92  R.  Branson  Added  pathname  to  data 

*  directory 

*  1.4  11/25/92  R.  Branson  Changed  %i  to  %d 

. 


/ . 

*  SP/CR  No.  Description  of  Modification 


Hard  coded  defines  changed  to  array  elemenis. 

Characteristics/paFameter  data  array  added. 

Degree  of  polynomial  data  array  added. 

Added  file  reads  for  TOW  characteristics/parameters, 
bum  sfwed  coeffidents,  coast  qreed  coefficients, 
bum  turn  coeffidents,  and  coast  turn  coeffi- 
coeffidents. 

Added  "/simnet/data/"  to  each  data  file  pathname. 


•  FILE:  miss.towx  • 

•  AUTHOR:  Bryant  Collard  • 

*MAINTAINER:  Bryant  Collard  * 

•  PURPOSE:  This  file  contains  routines  whidi  fly  out  a  * 

•  missile  with  the  characteristics  of  a  TOW  * 

•  missile.  • 
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HISTORY:  10/31  /88  biyant  Creation  • 

4/26/89  bryant  Added  statically  allocated  mem  * 


Copyright  (c)  1988  BBN  Systems  and  Technologies,  Iik. 
All  rights  reserved.  • 


#iiK;lude  "stdio  Jr" 

#mciude  "sim.typesJr” 

#iiKlude  "sim_d^Ji" 

#include  "basich” 

#iiKlude  "mun_type.h" 

#include  "libiitatrix.h" 

#include  "libmap.h" 

/•—  ireed  Range.Squaied  info  -*/ 
#include  "libhull.h" 

#include  libkinJi" 

/• - •/ 

#include  "miss.tow.h" 

#indude  "libmissile  Ji" 

#include  "libmiss_dfit.h" 

#mdude  "libmiss.locJt" 


*  Define  missile  characteristics. 

/V 

#define  TOW  BURNOUT  TIME  tow  miss_char(0] 
#defineTOW_RANGE_LaiIT_TIME  tow_miss^charlll 
♦define  TOW.MAX  FUGHT.TTME  tow_miss_chart2l 


*  The  follorving  terms  set  the  order  of  the  polyncmuals  used  to  determirre 

*  the  ^)eed  or  cosirre  of  the  maximum  allowed  turn  rate  of  the  missile 

*  at  any  point  in  time. 


♦defirreTOW  BURN_SPEED  DEG  tow_miss_poly  deglO] 
♦define  TOW  COAST  SPEED  DEG  tow_miss_poly_degIl] 
♦define  TOW_BURN_fURN_DEG  tow_mis8_poly_degI21 
♦define  TOW_COAST_TURN_DEG  tow_miss_poly_degI3] 


*  Tow  missile  characteristic  parameters  initialized  to  default  values. 
/•/ 

static  REAL  tow_miss_char(5]  = 
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24.0,  /•  ticks  (1.6  sec)  •/ 

26835,  /•ticks (1739 sec) V 

3(X).00,  /•  ticks -cos  of  max  turn  >  1.0  beyond  this  point*/ 

ao, 

0.0 

1; 


/•/ 

*  The  following  terms  set  the  order  of  the  polynomiak  used  to  determine 

*  the  ^)eed  and  turn  of  the  missile  at  any  point  in  time. 

/•/ 

static  int  tow_miss  poly_deg[5]  » 

{ 

2,  /•  Speed  before  motor  burnout.  •/ 

3,  /*  Speed  after  motor  burnout  */ 

1,  /*  Cosine  of  max  turn  before  burnout*/ 

3,  /*  Cosine  of  max  turn  after  burnout  */ 

0  /*  not  used.  */ 

); 

/*/ 

*  Coefficients  for  the  speed  polynomial  before  motor  burnout  initialized 

*  to  default  values. 

/*/ 

static  REAL  tow_bum_speed_ooeffI5]  = 

{ 

4.466666667,  /*  a_0  -  m/tick  (67X)  m/sec)  */ 

1322103405,  /*  a_l  -  m/tick**2  (274.9732662  m/sec*3)  */ 

-0324532086,  /*  a_2  -  m/tick**3  (-82.7057910  m/se(f*3)  */ 

0.0, 

0.0 

); 


/*/ 

*  Coefficients  for  the  qxed  polynomial  after  motor  burnout 
/*/ 


static  REAL  tow_coast_speed  coeffI5]  = 

{ 


2131905383, 

-93382019e-2, 

2A378222&4, 

-2.6311111e-7, 

03 


/*  a_0  -  m/tick  (3273858074  m/sec)  */ 

/*  a_l  -  m/tick**2  (-21.4609544  m/se<f*2)  */ 
/*  a_2  -  m/tick**3  (03227650  m/sec**3)  */ 
/*  a_3  -  m/tick**4  (-0.0133200  m/sec**4)  */ 


1; 


/*/ 

*  Coefficients  for  the  cosine  of  max  turn  polynomiak  before  motor  burnout 

*  The  structure  _MAX_COS_COEFF_  k  used  to  store  the  values  for  the  turn 

*  sideways,  up,  and  down  polynomiak  along  with  their  order. 
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/V 

static  MAX  COS.COEFF  tow_bum_tum_coeff  = 

{ 

1,  /•  Order  of  the  polynomials.  •/ 

{ 

/•  Sidewards  turn.  •/ 
0.999976868652,  /•  a_0  -  oos(rad)/tick  •/ 
-35933955e-7  /•  a  1  -  cos(rad)/tick*^  •/ 

1, 

{ 

/•  Upwards  turn.  •/ 

0.999960667258,  /*  a_0  -  cos(rad)/tick  V 
-3.1492328e-6  /•  a  1  -  cos(rad)/tick^  •/ 

1, 

{ 

/•  Downwards  turn.  •/ 
0.999978909989,  /*  a_0  -  cos(tad)/tick  •/ 
-7.8194991e-9  /*a  1  -  cos(rad)/tick**2  •/ 

) 


/V 

*  Coefficients  for  the  cosine  of  max  turn  polynomials  after  motor  burnout 

/V 

static  MAX_COS_COEFF  tow_coast_tum_coeff  *= 

( 

3,  /*  Order  of  the  polynomials.  */ 

{ 

/•  Sidewards  turn.  •/ 

0.99995112518,  /•  a  0  -  cos(rad)/tick  •/ 

8.96333e-7,  /•  a  1  -  cos(rad)/tick^  •/ 

-5.995375e-9,  /‘a  2 - co8(rad)/tick^  V 

1.162225e-ll  /’a  3 - cos(rad)/tick*»4 V 

), 

{ 

/•  Upwards  turn.  •/ 

0.9998498495,  /*a  0  -  cos(rad)/tick  V 
1.657779e-6,  /•  a  1  -  cos(iad)/tick^  •/ 

-8231861e-9,  /’a  2 - cos(rad)/tick^ •/ 

lJ81832e-ll  /’a  3 - cos(rad)/tick*^4 •/ 

), 

{ 

/•  Downwards  turn.  •/ 

0.9999714014,  /'a  0 - co8(rad)/tick •/ 

3  J82077e-7,  /•  a  1  -  cos(rad)/tick^  •/ 

-1.601259e-9,  /•a  2 - cosfradj/tick^ •/ 

2.623014e-12  /'a  3-co8(rad)/tick^4V 

) 

); 
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static  ObjectType  tow_ainino_type  =  munition_US_TOW; 
static  REAL 

max  range  limit,  /•  [  MISSILE_US  MAX_RANGE_UMIT  ]  V 

max  range  squared,  /*[ MISSILE  US  MAX  RANGE  LIMITS 2]  V 
speed  factor;  /•  I  MISSILE  US.SPEED  FACTOR]  •/ 


/•/ 

*  Declare  static  furrctions. 

/V 

static  void  nussile_tow_stop  0; 


*  ROUTINE:  missiIe_tow_init  * 

*  PARAMETERS:  tptr  -  a  pointer  to  the  TOW  to  be 

*  initialized.  * 

*  RETURNS:  none  • 

*  PURPOSE:  This  routirre  initializes  the  state  of  the  * 


missile  to  indicate  that  it  is  available  aird  * 
sets  values  that  never  change.  * 


void  missile.towjrrit  (tptr) 

TOW  MISSILE ’iptr; 

{ 

int  i; 

int  data_tmp_int; 
float  data_tmp; 
char  descript[64]; 

HLE  ‘fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  miss.towx  READ  FROM  FILE  •/ 

fp  =  fopenC/simnet/data/ms  tw_ch.d",V); 
if(fp==NULL){ 

fprintfCstderr,  "Cannot  open  /simnet/data/ms_tw_d»4l\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  array  data  */ 
i=0; 

while<fscartf(fp,”%r,  &data_tmp) !»  EOF){ 
tow_miss_char[i]  =  data.tmp; 
fgetsCdescript,  64,  fp); 

/•  printfrtow_miss_char(%3d)  is%l  1 3f  %s",  i,  tow_miss_char(i], 

descript);  •/ 
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-H-i; 

) 

fdo9e(fp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  miss_tow.c  READ  FROM  FILE  •/ 

/*  DEFAULT  BURN  SPEED  DATA  FOR  miss_tow.c  READ  FROM  FILE  •/ 
fp  =  fopenC/sininet/data/ms  tw  bs4l","«0; 
if{fp==NULL){ 

fprintRstderr,  "Cannot  open  /siinnet/data/nns_tMr_bsxl\n"); 
exitO; 

1 

rewind(^); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,”%d",  &data_tmp_int); 

TOW_BURN_SPEED_DEG  =  data_tmp_int; 
fgetsfdescript,  64,  fjp); 

/•  printf("tow_iniss_poly_deg(0)  is%3d  %s",  TOW_BURN_SPEED_DEG, 
descript);  •/ 

/*  Read  array  data  */ 
i-0; 

while(f8canf(fp,"%r,  &data_tmp)  !=  EOF){ 
tow Jnim_speed_coeffIi]  **  data.tmp; 

^etsfdescri^,  64,  fp); 

/•  printfrtow_bum_q3eed_coeff(%3d)is%113f%s",i, 
tow_bum_^Ked_coeff{i],  descript);  •/ 

-H-i; 

) 

fcloseffp); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  iniss_low.c  READ  FROM  FILE  V 

/•  DEFAULT  COAST  SPEED  DATA  FOR  miss.towx  READ  FRC^  FILE  •/ 

^  =  fopen("/siinnet/data/ms  tw  csxi","r"); 
if<fp=«NULL){ 

fprintffstderr,  "Cannot  open  /siinnet/data/ins_tw_cs.d\n"); 
cxitO; 

1 

rewind(fp); 

/*  Read  degree  of  fx>Iynomial  *! 

fkanf(fp,"%d",  &data_tmp_int); 

TOW_COAST_SPEEI^DEG  =  data.tmpjnt; 

%ets(descript,  64,  fp); 
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/•  printf("tow_iniss_poly_deg(l )  is%3d  %s",  TOW_COAST_SPEED_DEG, 

descript);  */ 

/*  Read  array  data  */ 
i=0; 

while(fscanf<fp,"%r,  &data_tmp)  !=  EOF){ 
tow_coast_speed_coeffli]  =  data.tn^; 
fgets(descri^,  64,  fp); 

/•  printfrtow_coast_speed_coeff(%3d)  is%113f  %s",  i, 

tow_coast_sp^_coefflil,  descript);  •/ 

++i; 

1 

fclose(fp); 

/•  END  DEFAULT  COAST  SPEED  DATA  FOR  miss.towx  READ  FROM  FILE  •/ 

/•  DEFAULT  BURN  TURN  DATA  FOR  iniss_tow.c  READ  FROM  FILE  •/ 

fp  =  fopen("/sinmet/data/nis_tw_bLd",V); 
if(f^NULL){ 

^nintffstderr,  "Cannot  open  /sininet/data/nns_tw_btxl\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

focanf(fp,”%d",  &data  tmp_int); 

TOW_BURN_TURN_DEG  =  data_tmp_int; 
tow_bum_tum_coeff.deg  =  data_tmp_int; 
fgetsfdescript,  64,  fp); 

/•  printf("tow_iniss_poly_deg(2)  is%3d  %s",  TOW_BURN_TURN_DEG, 

descript);  •/ 

/*  Read  array  data  */ 

for  (i=0;  i  <=  data_tmp_int;  i++)  { 
fscanf(fp,"%r,  &data_tmp); 
tow_bum_tum_ooeff.side_coeffli]  =  data.tanp; 

%ets(descript,  64,  fp); 

/•  printfr’tow_bum_tum_coeff3ide_coeff(%3d)  is%l  1 3f  %s",  i, 

tow  bum  turn  coeffaide  coefffi],  descript);  */ 

) 

for  (i=0;  i  <=  data_tmp_int;  i++)  { 
facanf(^,"%r,  fodata.tmp); 
tow_bum_tum_coeff.up_coefflil  =  data.tmp; 
fgetsfdescript,  64,  fp); 

/•  printf("tow_bum_tum_ooeff.up_coeff(%3d)  is%l  1 3f  %s",  i, 

tow_bum_tum_coeff.up_c^flil,  descript);  */ 
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) 

for  (i=0;  i  <=  data_tmp_int;  i++)  { 
fscW(fp,"%r,  &data_tmp); 
tow_bum_tum_coeff.down_coeffli]  =  data_tmp; 
fge^descript,  64,  fp); 

/•  printfCtow_l>um_tum_ooeff.down_coeff(%3d)  is%lUf  %s",  i, 

tow  bum  turn  ooeffxlown.coeffli],  descript);  •/ 

) 

fcIose(fp); 

/•  END  DEFAULT  BURN  TURN  DATA  FOR  miss_tow.c  READ  FROM  FILE  •/ 

/•  DEFAULT  COAST  TURN  DATA  FOR  nuss_tow.c  READ  FROM  FILE  •/ 

fp  =  fopen("/simnet/data/ms_tw_ct.d","r**); 

if(fp==NULL){ 

fprintffstderr,  "Cannot  open  /simnet/data/ins_tw_ctxl\n"); 
exitO; 

} 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fecanf(fp,"%d",  Adata.tmp.int); 

TOW_COAST_TURN_DEG  =  data.tmp.int; 

tow_coast_tum_coeffxIeg  =  data.tmpjnt; 

%ets(descript,  64,  fp); 

/•  printf("tow_iniss_poly_deg(3)  is%3d  %s",  TOW_COAST_TURN_DEG, 
descript);  •/ 

/*  Read  array  data  */ 

for  (i=0;  i  <=  data_tmp_int;  i++)  { 
focanf(fp,"%r,  4cdata_tmp); 
tow_coast_tum_coeff jide_coeffIi}  =  data.tmp; 

^ets(descript,  64,  fp); 

/•  printfrtow_ooast_tum_coeff.side_coeff(%3d)  is%l  1 3f  %s",  i, 

tow_ooast  turn  coeff.side  ooefflij,  descript);  */ 

) 

for  (i=0;  i  <=  data_tmp_int;  i++)  { 
fscanf(fp,"%r,  &data_tmp); 
tow_coast_tum_coeff.up_coefflil  =  data_tmp; 

^etsfdescript,  64,  fp); 

/•  printfrtow_ooast_tum_coeff.up_ooefK%3d)  is%l  1 3f  %s",  i, 
tow  coast  turn  coeff.up.ooeffji],  descript);  */ 

] 


for  (i=0;  i  <=  data_tmp_int;  i++)  { 
f^nf(fp,"%r,  &data_tmp); 
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tow_ooast_tum_coeffxlown_coefflil  =  data.tmp; 
fge^descript,  64,  fp); 

/•  printfrtow_coast_tum_coeff.down_coeft(%3d)  is%113f  %s",  i, 

tow  coast  turn  coeff.down_coeffIi],  descript);  */ 

) 

fcloseffp); 

/•  END  DEFAULT  COAST  TURN  DATA  FOR  miss.towx  READ  FROM  FILE  •/ 
tptr->mptr.state  =  FALSE; 

tptr->inptr.inax_flight_tinie  =  TOW_MAX_FLIGHT_TIME; 
^tr->mptr.max_tum_directions  =  3; 
speed.factor  =  MISSILE_US_SPEED_FACTOR; 
max_Fange_Iinut  =  MISSILE_US_MAX_RANGE_LIMIT; 
nnax_ninge_squared  =  inax_fange_liinit  •  inax_range_Iinut; 
tow_anuno_t)rpe  =  munition_US_TOW; 


void  missile_tow_set_^)eed_factor(  scale_^)eed ) 

REAL  scale  speed; 

{ 

speed  factors  scale  qjeed; 

) 

void  nussile.tow_set_niax_range_limit(  limit.range  ) 

REAL  limit  range; 

{ 

max_FBnge_Iimit  =  limit_range; 

max  range  squared  =  max  range  limit  *  max  range_Iimit; 

) 

void  missile_tow_set_ammo_type(  ammo ) 

ObjectType  amnno; 

{ 

tow_ammo  type  =  ammo; 

1 

•  ROUTINE:  missiIe_tow_fire  • 

•PARAMETERS:  tptr  -  A  pointer  to  the  TOW  missile  to  be  * 

•  fired.  • 

•PARAMETERS:  Iaunch_point  -  The  location  in  worid  • 

•  coordinates  that  the  missile  is  • 

•  launched  from.  • 

•  loc_sight_to_world  -  The  sight  to  world  • 

•  transfonnation  matrix  used  • 

•  only  in  this  routine.  • 

•  lauitch.speed  •  The  speed  of  the  launch  • 

•  platform  (assumed  to  be  in  the  • 
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*  direction  of  the  missile).  * 

*  tube  •  The  tube  the  missOe  was  launched  from.  * 

*  RETURNS:  none  • 

*  PURPOSE:  This  routine  performs  the  functions  • 

*  specifically  related  to  the  firing  of  a  TOW  * 

*  missile.  • 


TOW_MISSILE  •missile_tow_fire  (tptr,  launch_point,  loc_sight_to_world, 
launch  speed,  tube) 

TOW_MISS1lE  •tptr; 

VECTOR  launch_point; 

T_MATRIX  loc_sight_to_world; 

REAL  launch_speed; 
inttube; 

{ 

MISSILE  *mptr;  /*  Pointer  to  the  particular  generic  missile 
pointed  at  by  tptr_.*/ 

/V 

*  Find_mptr  . 

/V 

mptr  =  &<tptr->mptr); 

/•/ 

*  Set  the  initial  time,  location,  orientation,  and  ^)eed  of  the  generic 

*  missile. 

/V 

mptr->time  =  0.0; 

vec_copy  Gaundi4X)int,  mptr->location); 
mat_copy  (loc_sight_to_world,  mptr->orientation); 
ii^}tr->^peed  » lauitch_q)eed  -«■ 

(speedjactor  •  mis^le_util_eval_poIy  (TOW_BURN_SPEED_DEG, 
tow_bum_speed_coeff,  0.0)); 
mptr->init  qxed  =  lauiKh  roeed; 

/V 

*  Set  the  wire  as  uncut 

/V 

tptr->wire  is  cut  =  FALSE; 

/V 

*  Tell  the  rest  of  the  world  about  the  firing  of  die  missile.  If  this 

*  cannot  be  done,  return. 

/V 

if  (!missile_utiI_comm_fire_missile  (mptr,  MSL_TVPE_MISSILE, 
"™®P_get_ammo_entry_from_network_type  (tow_ammo_type), 
tow_ammo_type,  tow_ammo_type,  NULL,  targetUnknown, 
objectlrrdevant,  tube)) 
return; 

/V 

*  If  all  was  successful,  set  the  missile  state  to  TRUE  and  return. 

/V 

mptr->state  =  TRUE; 
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return; 

) 

. . 

•  ROUTINE:  nussile_tow_fly  • 

•  PARAMETERS:  tptr  -  A  pointer  to  the  TOW  missile  that  is  to  * 

•  be  flown  out  • 

•  sight_kxation  -  The  location  in  world  * 

•  coordinates  of  the  gunner's  * 

•  sight  • 

•  loc_sight_to_world  -  The  sigjit  to  world  • 

•  transformation  matrix  used  * 

•  only  in  this  routine.  * 

•RETURNS:  none 

•  PURPOSE:  This  routine  performs  the  functions  • 

•  specifically  related  to  the  flying  a  TOW  • 

•  missile.  * 

***** . . . I 

void  missile_tow_fly  (tptr,  sight  location,  loc  sight  to  world) 
TOW_MISSILE*tptr; 

VECTCW  sight  .location; 

T.MATRIX  loc.sight  to  world; 

( 

MISSILE  "mptr;  /•  A  pointer  to  the  generic  aspects  of  _tptr_.  •/ 

REAL  time;  /•  The  current  time  after  laimch  (ticks).  •/ 

/•/ 

•  Set  _mptr_  and  _time_.  These  values  are  created  mostly  for  increased 

•  readablity. 

/•/ 

mptr  =  &(tptr->inptr); 
time  =  mp^->time; 

/•/ 

•  If  the  missile  has  reached  its  maximum  range  (itot  the  maximum  distaiKe 

•  its  allowed  to  fly),  cut  the  wire. 

/•/ 

#ifdef  notdeff 

if  ((time  >  TOW_RANGE_LIMIT_TIME)  &&  !tptr->wire_is_cut) 
tptr->%vire_is_cut  =  TRUE; 

#endif 

if  (!tptr->wire_is_cut  && 

((time>TOW_RANGE_LIMIT_TIME)  II 
(max.rairge.limit  >  0  Uk. 

kmematics.range.squared  (veh.kinematics,  mptr->location)  > 
max.range.squared) )) 
tptr->wire  is  cut  =  TRUE; 

/•/ 

•  Find  the  current  missile  speed  aird  the  cosines  of  the  maximum  allowed  turn 

•  angles  in  each  direction.  The  equations  used  are  different  before  aivl 
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*  after  motor  burnout. 

/V 

if  (time  <  TOW  BURNOUT.TIME) 

{ 

ii^>tr->speed  =  mptr->init_speed  + 

(speed_factor  • 

mis8ile_uliI_eval_poly  (TOW_BURN_SPEED_DEG, 
tow_bum_speed_ooeff,  time)); 

missile  util  eval  coLcoeff  (mptr,  &tow_bum_tum_ooeff,  time); 

) 

else 

{ 

mptr->speed  =  mptr->init_speed  + 

(speed_factor* 

inissilc_util_eval_poly  (TOW_COAST_SPEED_DEG, 
tow_coast_speed_coeff,  time)); 

missile  util  eval_cos_coeff  (mptr,  &tow_coast_tum_coeff,  time); 

J 

.  . 

*  If  die  wire  has  been  cut,  set  the  ground  as  the  taiget;  otherwise, 

*  find  a  target  point  which  will  fly  the  missile  along  the  gunner's  line  of 

*  •ighi.  This  targeting  sdieme  takes  into  account  the  errors  introduced  by 

*  attempting  to  guide  die  missile  in  a  canted  position. 

/V 

if  (tptr->wire_i8_cut) 
inissile_tafget_ground  (mptr); 
else 

missile  target  levcl_lo8  (mptr,  sig^t_location,  loc_sight_to_world); 

/V  '  ~ 

*  Try  to  actually  fly  the  missile.  If  this  fails  stop  the  missUe  altogether 

*  and  return. 

/•/ 

ifOmissile  util  flyout  (ri^tr)) 

{ 

mis8ile_tow_stop  (tptr); 
return; 

) 

else 

( 

/*/ 

*  If  the  missUe  successfully  flew,  dieck  for  an  intersection  with  die 

*  ground  or  a  vehicle.  If  one  is  found,  blow  up  the  missile,  stop  its 

*  flyout  and  return. 

/*/ 

if  (miS8ilc_util_conun_check_intersection  (mptr,  MSL_TYPE_MISSILE)) 

rriis8ile_util_comm_dieck_detonate  (mptr,  MSL_TYPE_MISSILE); 

missile_tow_stop  (tptr); 

return; 

) 

) 
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/V 

*  If  the  missile  is  to  continue  to  fly,  return. 

/•/ 

return; 

} 

. . 

♦  ^ 

•  ROUTINE:  inissile_tow_stop  • 

•PARAMETERS:  tptr  -  A  pointer  to  the  TOW  missile  that  is  to  • 

•  be  stopped.  • 

•  RETURNS:  noire  • 

•  PURPOSE:  This  routine  causes  all  concerned  to  forget  • 

•  about  the  missile.  It  should  be  called  when  • 

•  the  flyout  of  any  TOW  missile  is  stopped  • 

•  (whether  or  not  it  has  exploded).  Notefliat  • 

•  this  routine  can  only  be  called  within  this  • 

•  nKxlule.  • 

. . . . . . 


static  void  missile.tow  stop  (tptr) 

TOW_MISSILE*tpti; 

I 

/•/ 

•  Tell  the  world  to  stop  worrying  about  this  missile  then  release  the 

•  memory  for  use  by  other  missUes. 

/•/ 

mis8ile_util_ooiiun_stop_missile  (&(tptr->mptr),  MSL_TYPE_MIS5ILE); 
tptr->mptr.8tate  »  FALSE; 

) 

•  « 

•  ROUTINE:  missile_tow_cut_wire  * 

•PARAMETERS:  A  pointer  to  the  TOW  missile  whose  wire  • 

•  is  to  be  cut.  • 

•  RETURNS:  noite  • 

•  PURPOSE:  This  routine  sets  a  flag  iirdicating  that  the  • 

•  guidance  wire  of  this  missile  is  cut  • 

»  • 

. . / 


vend  missile_tow  cut  wire  (tptr) 

TOW  MISSILE  •tptr; 

( 

/•/ 

•  If  flie  the  wire  is  not  already  cut,  cut  the  wire. 
/•/ 

if  (!tptr->wirejs_cut) 
tptr->wirB_is_cut  =  TRUE; 
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The  following  appendix  contains  the  source  code  listing  for 
rkt_hydra.c  for  convenience  in  document  maintenance  and 
imderstanding  of  the  CSU. 
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/•  SHeaden  /a3/adst-cm/RWA/sinmet/vehide/libsrc/libinissiIe/RCS/rkt_hydra.c,v  1 
.1  1992/09/30 163952  cm-adst  Exp  $  •/ 

/• 

*$Log:rkt  hydFa.c,v$ 

•Revision  1.1  1992/09/30  16:39:52  cm-adst 
•  Initial  Version 


•/ 

static  char  RCS  IDD  =  "SHeaden  /a3/adst-cm/RWA/simnet/vducle/libsrc/Iibmissil 
e/RCS/ikt_hydrax,v  1.1 1992/09/30 165952  cm-adst  Exp  $"; 

. . 

•  Revisions: 

•  Version  Date  Author  Titie  SP/CR  Number 


•  \2  10/23/92  R.  Branson  Data  Hie  Initiali- 

•  zatitm 

•  15  10/30/92  R.  Branson  Added  pathname  to  data 

•  directory 

•  \A  11/25/92  R.  Branson  Charrged  %i  to  %d 

. . 


/***—•••• . - . 

SP/CR  No.  Description  of  Modification 

Hard  coded  defiires  changed  to  array  elements. 
Characteristics/parameter  data  array  added. 

Added  file  reads  for  rocket  diaracteristics/ 
parameters. 

Added  "/sinmet/data/”  to  eadi  data  file  pathname. 


•FILE:  rkt  hydra.c  • 

•AUTHOR:  ~KiisBartoI 

•MAINTAINER:  KrisBartoI  • 

•  • 

•  PURPOSE:  This  file  contains  routines  which  govern 

•  the  behavior  of  an  HydraTO  Rocket  flown  with  • 

•  a  ballistic  trajectory.  • 

•HISTORY:  10/06/90  kris 
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*  Copyright  (c)  1989  BBN  Systems  and  Technologies,  Inc. 

•  All  rights  reserved.  • 


#include  "stdio.h" 
#include  "nuth  Ji” 

#include  "sun_types.h" 
#include  "sim_dfns.h" 
#include  "basic.h'* 
#include  "mun_type.h" 


#include  Tibrva.h” 

#include  Tibmap.h" 

#include  Tibnuitrix.h" 

#include  Tibmiss_dfn.h” 

#include  Tibmiss.locit" 

#include  Tibmissile.h” 

#include  "rkt.hydra.h" 

#define  DEBUG  0  /*  debugging  is  *! 

#define  HYDRA^TRAJ_FILE  "/simnet/data/hydraTD.sd" 
#define  HYDRA_PARAM_F1LE  "/simnet/data/hydraTO.^" 


/*—  Define  rocket  performance  dtaracteristics— */ 
fdefine  HYDRA  MIN  RANGE  rkt_hydra  char{7] 

«define  HYDRA.MAX  RANGE  S5  rkt  hyd^.chait  8] 
#defineHYDRA_MAX_RANGE_M151  rkt  hydra_char[9] 
«defineHYDRA_MAX_RANGE_M261  rkt  hydra_char{10l 
#defineHYDRA_MAX_RANGE_M255  ikt_hydra_charlll] 

/•- Define  the  states  of  an  HYDRATO.ROCKET -V 
#define  HYDRA  FREE  0  /*  Rocket  available  to  launch  V 

#define  HYDRA.FLY  1  /•  Rocket  flying  •/ 

#define  HYDRA.DETC^ATE  2  /*  Rocket  detonates -release  or  impact*/ 

#define  HYDRA.FALL  3  /*  Sub-munitions  falling —  */ 

#define  HYDRA.RELEASED  4  /*  Sub-munitions  released  towards  impact  */ 

#define  HYDRA.REMOVE  10  /*  Rocket  gets  killed  at  end  of  this  tick  */ 

static  REAL  rkt  hydra  char(12]  = 

{ 

M151_BURST_SPREAD,  /*  twin  bursts  are  3  m  apart  */ 

M261  BURST  HEIGHT,  /*  release  submunitioirs  180  ft  */ 
M26iIbURStIrANGE,  /*  0  m  in  front  of  target  (49  ?)  •/ 

M261  BURST  SPREAD,  /*  twin  bursts  are  13  m  apart  */ 
M255IbURStIrAN(3E,  /*  release  darts  150  m  front  of  tgt  */ 

M255  BURST  SPREAD,  /*  twin  bursts  are  35  m  apart  */ 
FLECH_60_MyU(_RANGE,  /*  darts  fly  total  of  750  m  •/ 
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50.0,  /*  hydra  minimum  range  */ 

5000.0,  /*  hydra  maximum  range  for  Soviet  S-5  57mm  Rocket*/ 

7000.0,  /*  hydra  maximum  range  for  _M151  [actual  9000  m]  */ 

7000.0,  /*  hydra  maximum  range  for  M261  */ 

3200.0  /*  hydra  maximum  range  for  M255  */ 

1; 

/•—  burst  releases  9  bombletts  — •/ 

static  int  m73_per_m261_burst  =  M73_PER_M261_BURST; 

/*—  pcHnter_to  &  number_of  HYDRA70_ROCICET  array  — •/ 

static  HYDRA_ROCKET  •hydra_array;  /*  A  pointer  to  Hydra70_Rkt  memory  •/ 

static  int  num_hydra;  /*  The  number  (A  defined  missiles  */ 

/•—  array  of  pointers  to  Hydra70_Rockets  in  flight  — •/ 

static  HYDRA_ROCKET  •hydra_fly[MAX_HYDRA70_ROCKETJ; 

static  int  rkts_in_flight; 

/*— Ballistics  Table ...  array  of  structures  MISSILE  BALLISTIC  OFFSETS  -•/ 
static  MISSILE_BALUSTIC_OFFSETS  ball_table[BALLISTIC_TABLE_SIZE]; 
static  int  table.size; 

static  BOOLEAN  ball.tablejoaded  =  FALSE; 
static  VehiclelD  nuU.vehidelD; 

static  int  flight_time;  /•  Time  Of  Flight  for  ballistic  traj  •/ 
static  REAL 

nax.range.Umit,  /*[  MISSILE_US_MAX  RANGE  LIMIT  J  •/ 
speed.factor,  /•  [  MISSILE_US_SPEED_FACTOR  ]  •/ 

pylon_x,  /•  [0.01  <xyz>  position  offset  of  pylon  •/ 

pylon_y,  /•  [0/1]  •/ 

pylon_2;  /•  [0/1]  •/ 

static  int  flechette_veh_list;  /•  list  ID  of  flechette  target  vehicles  •/ 

static  void  missile_hydra_stop  v>; 

static  void  missUe_hydra_puige_free_missiles  (); 


ROimNE:  missile.hydrajnit  * 

PARAMETERS:  rocket_array  -  Array  of  rockets  of  structure  * 
type_HYDRA_ROCKET_  • 

num_rockets  -  The  number  rockets  defined  in  * 
_rockets_array_.  • 

RETURNS:  none  • 

PURPOSE:  This  routine  copies  the  parameters  into  * 
variables  static  to  this  module  and  initializes  * 
the  state  of  all  the  rockets.  * 
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void  missile_hydra_init(  rocket.array,  num_rocket ) 

HYDRA_ROCKET  •rocket.anay; 
int  num.rocket; 

( 

int  i; 

int  data.tmpjnt; 
float  data.tmp; 
char  descriptI64]; 

FILE  •fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  rkt_hydra.c  READ  FROM  FILE  •/ 

fp  =  fopen("/simnet/data/rkt_hydrxI","r"); 
if(fp=NULL){ 

^rintflstderr,  "Cannot  open  /simnet/data/rkt_hydrxi\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  array  data  */ 

fscanf(fp/%d",  Adata.tmp.int); 
m73_per_in261_burst  =  data_tinp_int; 

%ets(descript,  64,  fp); 

/•  printf("in73_per_in261_burst  is%3d  %s",  in73_per_ni261_bur5t, 
descript)  V 

i»0; 

while(fecanf<^,"%r,  4cdata_tmp) !«  EOF)( 
ikt_hydra_char{i]  =  data_tmp; 

%ets(descript,  64,  fp); 

/*  printfrrkt_hydra_chai<%3d)  is%l  1 3f  %s",  i, 
rkt.hydra.chaifi],  descript)  •/ 

++i; 

1 

fcIoseC^); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  rkt_hydra.c  READ  FROM  FILE  •/ 
hydiB.anay  =  rocket_anay; 

num.hydia  =  num_rocket  <  MAX_HYDRATO_ROCKET  ? 

num  rocket: MAX  HYDRA70_ROCKET; 
for  (i  =  0;  i  <  MAX  HYDRATD.ROCKET;  i-M-) 

{ 

hydra_aiTay(i].l»nptr.state  =  HYDRA_FREE; 
hydra  arniy(i].binptr.missile_id  =  Q; 

1 

licts  in  flight »  0;  /*  no  missiles  in  flight  */ 
for(T  =  0;  i  <  MAX_HYDRA70_ROCKET;  i-H- ) 
hydra.flyfi]  =  0; 
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pylon_x  =  0.0; 
pylon_y  =  OX); 
pyIon_z  =  OX); 
flight.time  =  0; 

!f)eed_factor  =  MISSILE_US_SPEED_FACTOR; 
niax_range_Iinut  =  MISSILE_US_MAX_RANGE_LIMn‘; 

if(!ball  table  loaded) 

{ 

/• 

*  load  HydiaTD  Rocket's  ballistic  table 

V 

printf(  loading  HydraTO  Rocket's  ballistic  table  %s\n'', 
HYDRA_TRAJ_FILE ); 
table_size  = 

inissile_util_Ioad  Jball_tiaj_file(  HYDRA_TRAJ_FILE,  ball_tab]e ); 
ball  taUe  loadecr=  TRUE; 

} 


/• 

*  create  flechette  veh_list  for  proximity  fuze 

*/ 

flediette.veh.Ust  =  rva_create_output_list(  flechette_is_valid_veh ); 
#ifdef  rtotd^ 

flechette  veh  list  =  RVA  ALL  VEHICLES  LIST; 

#endif 

/• 

*  initialize  the  proximity  fuze  for  rockets  armed  widi  Flechette's 

•/ 

missile  fuze.4>rox  iniK); 

) 

int  mis5ile_hydra_is_free(  rocket ) 
int  rocket; 

{ 

retum(  (hydra_array(rocket].bmptr.state  ==  HYDRA_FREE )); 

} 


*  ROUTINE:  iiussiIe_hydra_set_pylon_position_offsets  * 
*PARAMETERS:  x  =  X offset (inmeterslfromcenterof HULL  * 

*  y  =  Y  offset.  * 

*  z  *  Z  offset  • 

*  RETURNS:  none.  • 

*  PURPOSE:  Sets  the  X,  Y  and  Z  offeets  from  center  of  * 

*  HULL  for  trajectory  calculations.  * 

void  inissi]e_hydra_set_pyion_position_offoets(  x,  y,  z ) 

REAL  x,  y,  z; 
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{ 

pyk)n_x  =  x; 
pylon_y  =  y; 
pylon  z-z; 

) 

void  nussile_hydra_set_^>eed_factor(  ^)eed_sca]e  ) 
REAL^)eed  scale; 

I 

qxed  factor  =  ^Teed.scale; 

) 

void  missile_hydra_set_max_range_linut(  linut_range ) 
REAL  Iinut_range; 
t 

max  range  limit  =  limit  range; 

) 


/********* . . . . . 

*  ROUTINE:  missile_hydra_set_pyion_articulation  * 

*  PARAMETERS:  tgt_range  -  Range  to  target.  * 

*  rkt_type  •  Type  of  Rocket  to  be  launched.  * 

*  tirtre  -  Pointer  to  Time  Of  Flight  * 

*  variable  in  vehicle-spec  code,  [int]  * 

*  se.angle  •  Pointer  to  Super  Elevation  * 

*  variable  in  vehide-opec  code.  (REAL!  * 

*  lead.angle  •  Pointer  to  Hevation  * 

*  variable  in  vehide-spec  code.  [REAL]  * 

*  « 

•  RETURNS:  none.  • 

•PURPOSE:  Sets  _laser_range_  of  next  HydraTD  rocket  to  • 

•  be  lautKhed  and  calculates  Time  Ctf  Fligjit,  • 

•  Super  Elevation  angle  arrd  Lead  angle  for  next  * 

•  rocket  launch.  • 

void  nussile_hydra_set_pylon_articulation(  tgt.rar^ge,  rkt.type,  time, 
se.angle,  lead_angle ) 

REAL  tgt_iange; 
int  rict_type,  •time; 

REAL  •se  angle,  •lead_angle; 

( 

REALratrge;  /•  Ratrge  to  target  •/ 

REAL  ball_range;  /•  Range  to  look-up  in  Ballistic  Table  •/ 

if(  tgt.range  <  HYDRA_MIN_RANGE ) 
range  =  HYDRA_MIN_RANGE; 
dse  iK(  nnax_iarrgejimit  >  0.0 ) 

( tgt.range  >  max_range_lirnit ) ) 
range  nuuc.rangejimit; 
else 
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range  =  tgt_Fange; 

/*  SuperElevation  &  TOP  for  each  Rocket  Type  •/ 
switchCiict  type) 

{ 

case  RCX3CET_HE:  /*  type  101b  WARHEAD  •/ 

if{  range  >  HyDRA_MAX_RANGE_M151 ) 
range  =  HYDRA_MAX_RANGE_M151; 
ball_range  =  range  /  speed_factor; 
rnissiIe_utU_balIistics_calc_traj(  ball_table,  table.size, 
b^.range,  OJ),  OjO, 
time,  se.angle ); 

•lead.angle  =  atan(  (rlct_hydta_char[  0]  -  py^on.x)  /  rairge ); 

*time  =  -5;  /*  Does  not  have  a  tirrred  fuze  •/ 

break; 

case  ROCKET  MPSM:  /*  type  MPSM  */ 

if(  range  >  HVDRA  MAX_RANGE_M261 ) 
range  =  HYDRA_MAX_RANGE_M261; 
ball.range  =  range  /  speed.factor; 
rnissile_utiljballistics_calc_traj(  ball_table,  table_size, 
ball.range,  OA  rkt_hydra_dua{  1], 
time,  se.angle ); 

*lead_ar\gle  =  atan(  (rkt_hydra_char[  3]  >  pyIon_x}  /  rarrge ); 
break; 

case  ROCKET  FLECHETTE:  /•  type  FLECHETTE  •/ 

if(  range  >  HYDRA.MAX  RANGE^M255 ) 
range  *  HYDRA_MAX_RANGE_M255; 
ball.range  « range  /  speed.factor; 
missile_util_ballistics_calc_traj(  ball.table,  table.size, 
ball.range,  rict.hydrajchaif  4],  0.0, 
time,  se_an^e ); 

•lead.angle  =  atan((rkt_hydra_chai{  5]  -pylon.x)  / 

(range  -  rkt_h)^a_d«r(  4])); 

break; 

default: 

fnintf(  "hydra_set_pylon_articul:  unlmown  warhead.type  %d\n",  rkt_type ) 

•time  =  0; 

*se_angle  =  0.0; 

*lead_angle  =  OA 
break; 

J 

flight.time  «  *time; 


*  ROUTINE:  missile_hydra_fire  • 

*  PARAMETERS:  rkt_type  -  Type  of  Rocket  warhead. 

*  arruno  -  ArnrrK)  Type  of  rocket's  warhead. 

*  launch_pt  -  The  lotion  in  world  * 

*  coordinates  that  the  rocket  is  * 
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launched  from.  * 

launch.orient  -  The  sight  to  worid  • 

transformation  matrix  used  * 
only  in  this  routine.  * 

Iaunch_sp>eed  -  Speed  of  launch  platfonn  * 

(assum^  to  be  in  the  direction  * 
of  the  Rocket).  * 

RETURNS:  TRUE  if  successful,  FALSE  if  not.  • 

PURPOSE:  This  routine  performs  the  functions  * 

specifically  related  to  the  firing  of  a  HYDRA70  • 
rocket.  * 

. . / 


int  missile_hydra_fire(  rkt_type,  ammo,  lauiKh_pt, 
launch.orient,  launch_speed ) 

int  rkt_type; 

ObjeetType  ammo; 

VECTOR  launch_pt; 

T_MAT_PTR  launch.orient; 

REALlaundt  speed; 

{ 

T.MATRIX 
laundtjead, 
launch  se; 

REAL 

se.angle,  /•  munition.specifrc  SuperElevation  angle  •/ 
lead.angle;  /*  munition_specific  (-•-/•ILead  angle  V 
int  time;  /*  munition  specific  FlightUme  V 
HYDRA  ROCKET  •rkt; 

BALUSfiC.MISSILE  -bmptr^ 

OlqectType  fuze; 
int  i,  vaUd_msl; 

/*  get  next  FREE  rocket  V 
valid_msl  =  0; 
rkt  s  hydra.array; 

for(  i  s  0;  i  <  MAX_HYDRA7D_ROCKET;  i-H-,  rkt-M- ) 
if(  Tkt->bmptr .state  ==  HYDRA  FREE ) 

{ 

valid.msl  =  1; 

hydra_fly[rkts_in_fli^tl  =  rkt; 
bmptr  =  Mrkt>>bn^>tr); 

«if  DEBUG 

printf(  "Laundung  Rocket  %d\n",  i ); 

#endif 

rkts_in_flight++;  /•  ikts_in_flight  *=  #  flying  •/ 

break; 

) 

ifdvalid  msl)  /*  no  available  missile  to  launch  */ 

{ 
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retum(  FALSE ); 

) 

/*  set  MaxRange  for  Rocket  Type  */ 
stvitdtfikt  type) 

{ 

case  ROCKET_HE:  /•  High  Explosive  */ 

l>mptr->inax_range  =  HYDRA_MAX_RANGE_M151; 
rkt->sub_inun_type  =  SUB_MUN_NCMME; 
rkt->sub_amnK)_type  =  0; 
fuze  =  inunition_US_M433; 
break; 

rasp  R0CKET_MPSM:  /•  Multi-Purpose  Sub-Munition  •/ 

bmptr->inax_range  =  HYDRA_MAX_RANGE_M261; 
rkt->sub_fnun_type  =  SUB_MUN_IMPACT; 
rkt->sub_anuno_type  =  munition_US_M73; 
rkt->sub_inunition.iinpactjuiuno  =  inunition_US_M73; 
rkt->sub_inunition.iinpact.fuze  =  munition_US_M433; 
rkt->sub_munition.iinpactx}uantity  =  n\73_per_in261_burst; 
rkt->sub_fnunitioiLiinpactJieight  =  rkt_hydra_char{  1]; 
fuze  =  inunition_US_M439; 
break; 

case  ROCKET.FLECHETTE:  /*  Flediette  discharging  warhead  */ 

bmptr->rnax_range  =  HYDRA_MAX_RAP«;E_M255; 
rkt->sub_mun_type  =  SUB_MUN_CANISTBR; 
rkt->8ub_arnnno_type  =  mui\itionJUS_Ftechett8j60; 
rkt->sub_munitiorudartuunmo  =  munition_US_FleAette_60; 
rkt->sub_murutiorudartiuze  =  0; 
fuze  =  munition_US_M439; 
break; 
default; 

printf(  "hydra_fire_rkt:  unknown  rocket_type  %d\n",  rkt_type ); 

rkts_in_fUght-; 

bmptr  ->  state  =  HYDRA_FLY; 

retum(  FALSE ); 

break; 

) 

rnat_copy(  launch.orient,  bmptr->launcher_C_world ); 
rnat_cop)K  laurrdr_orient,  bmptr->orientation  ); 
vec_co^  launch_pt,  brr^tr->location ); 
brnptr->speed  =  lautKh.speed; 

I*  —  Tell  the  rest  of  the  world  about  the  firing  of  this  B-rnissile.  — 

•  -  If  this  carurot  be  done,  return  FALSE.  - 

V 

if(  Irnissile  util  corrun  fire  rnissile 
( bmptr,  MSLlTYPErBALUSnC, 
nuip_get_arruno_entry_from_network_type(  amnw ), 
arruno,  arruno,/*guises*/ 

fcinull  vehiclelD),  0/*targ_type*/,  fuze,  0/*tube*/  )) 

( 
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rkts_in_flight-; 

bmptr  ->  state  =  HYDRA_FLY; 

retum(  FALSE ); 

) 

bn^tr  ->  inax_flight_time  =  flight_tiine; 
bn^tr  ->  anuno.type  =  anuno; 

bn^tr  •>  time  =  0;  /•  initialize  in-fli^t  timer*/ 

bmptr  ->  ball.index  =  0;  /*  first  point  into  Ball-table  */ 

bmptr ->  state  =  HYDRA_FLY;  /•  rocket  is  now  flying  •/ 
retum(  TRUE ); 

1 

. . ****** . . 

•  ROUTINE:  missile_hydra_fly_rockets  • 

•PARAMETERS:  none  * 

•RETURNS:  none 

•  PURPOSE:  This  routine  flys  out  all  rockets  that  are  in  • 

•  a  flying  state.  • 


void  missile  hydra  fly  rocketsO 

( 

register  int  i; 

int  at_least_one_empty_MPSM; 

/•  Fly  out  all  launched  4c  flying  rockets. 

•  —may  have  to  also 'fly  out' all  released  sutmunitions- 

V 

at_least_one_en^ty_MPSM  =  FALSE; 
fbr(  i  =  0;  i  <  rkts  in  fli^t;  i-H- ) 

{ 

switch(  hydra  fly(i]->bii^tr3tate ) 

{ 

case  HYDRA_FREE: 

hydra_fly[i]'>bmptr3tate  =  HYDRA_REMOVE; 
break; 

case  HYDRA_FLY: 
inissile_hydra_fly(  hydra_fly(il ); 
break; 

case  HYDRA_DETONATE: 
switch! hydra  fly[i]'>sub  anuno  type) 

( 

case  munition_US_M73:  /•  MPSM  bomblets  •/ 

missile_m73_init 
( &<hydfa_flyfil->bmptr), 
4c(hydra_fl)iil->sub_munition), 
ball_table[  hydra_fly(i]->bmptr.baU_index  J.speed ); 
hydra_fly(i]->bmptr3tate  =  HYDRA_FALL; 

break;  _ 

case  munition_US_FIechette_60:  /•  FLECHETTE  darts  •  / 
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missile.fledtettejnit 
( &(hydra_flyCi]->bmptr), 

&(hydia_fly[i]->sub_munition), 
ball_table[  hydra_fly(i]'>bmptr.ball_index  ].speed ); 
hydra_fly(ij->bmptr.state  =  HYT)RA_RELEASED; 
tneak; 
default: 

printK  "Hydra_Detonate:  R_%d  unkno%vn  anuno*type\n",i ); 

missile_hydra_stop(  hydra_fly{il ); 

break; 

1 

break; 

case  HYI)RA_FALL: 
switchf  hydra  fly[i]->sub  anuno.type) 

( 

case  munition_US_M73:  /•  type  MPSM  •/ 

if(  missile_m73_diop(  4c(hydra_flyliJ->bmptr), 
&(hydra_fIy[i]->sub_munition) )) 
hydra_fly[i]->bn^}tr.state  =  HYDRA.RELEASED; 
break; 
default: 

printK  "Hydra_Fall():  R_%d  bad  sub_fnunition\n"4 ); 

missile.hydra.stopf  hydra_fly(il ); 

break; 

) 

break; 

case  HVDRA.RELEASED: 
switcM  hydra_flyIiJ->sub_anuno_type ) 

case  munition_US_M73:  /•  type  MPSM  •/ 

if( !  missile_ni73_impact(  A(hydra_fly{il->bmptr), 

&(hy^a  fly[i]->sub_munition) )) 

{ 

at_least_one_empty_MPSM  =  TRUE; 
nussile  hydra  sto^  hydra  flyfi] ); 

) 

break; 

case  inunition_US_Flechette_60:  /•  type  FLECHETTE  */ 
if( !  missUe_flechette_fly(  &(hydra_fly(i]'>bmptr), 
&(hydFa_fIy[i]->sub_inunition), 
flechette  veh  list)) 

( 

nussile_hydra_stop(  hydra_fly{il ); 
inis5ile_fuze_prox_stop 
(Afhydra  fly(i]->sub  munition.dartpptr) ); 

) 

break; 

default: 

printK  "Hydra_Release.  R_%d  bad  sub_inunition\n",i ); 

nussile_hydra_stop(  hydra_fly(il ); 

break; 
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) 

brcfllc* 

case  HYTJRA.REMOVE: 

break; 

default 

printf(  "Msl_hydra_fly_rkts():  ikt_%d  not  fl3dng\n",  i ); 

nussile_hydra_stop(  hydra_fly(i] ); 

break; 

) 

} 

/•  Send  out  remaining  (if  any)  Indirect  Rre  pkts  •/ 
if(  at_least_one_empty_MPSM ) 
network_ifire_send_indirect_fire(); 

/•  Get  rid  of  DEAD  rockets  */ 
missUe_hydra_pmge_fr€e_missiles(); 


. . . 

•  ROUTINE:  missile_hydra_fly  * 

•  PARAMETERS:  ikt  -  Pointer  to  a  _HYDRA_ROCKET_  structure 


•  RETURNS:  none  * 

*  PURPOSE:  This  routine  performs  the  functions 

*  specifically  related  to  the  flying  an  HYDRA70 

•  rocket.  * 


void  missile  hydra_fly(  rkt ) 
HYDRA  RCTOCET^kt; 

( 

BAUJSnC.MISSILE  •bmptr, 
int  index; 


bmptr  s  &:(rkt->bmptr); 
index  s  bmptr->ball  index; 

/• 

*  Check  for  rocket  detonation  via  timed-fuze. 

•/ 

if(  missUe_util_comm_check_timeK  bmptr,  MSL_TYPE_BALLISTIC )) 
bmptr->state  =  HYDRA_DETONATE; 

/• 

*  Try  to  actually  fly  the  missile.  If  this  fails  stop  the  missile  altogether 

*  and  return. 

•/ 

else 

if(  !missile_util_ball_flyout(  bmptr,  &(ball_table(index]), 
table  size, speed  factor)) 

( 


#if  DEBUG 

printf(  "Hydra_Rkt  out  of  range  -  stopping  B-missUe\n" ); 
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#endif 

nussUe_hydra_stop(  rkt ); 
return; 

) 

if(  missile  util  comm  check  detonate(  bmptr,  MSL  TYPE  BALLISTIC )) 

{  "  ”  ”  " 

/• 

*  IF  rocket  hit  ground  or  vehicle  — >  stop  its  flyout 

•/ 

if(  mis8ile_util_comm_check_intersection(  bmptr,  MSL_TYPE_BALLISnC )) 
missile.hydra  stop(rkt); 

/• 

*  Else  do  nothing  — >  missile  is  not  dead  yet... 

*  OR  rocket  dmed-fuze  detonated 
•/ 

1 

/*  otherwise,  let  B-missile  continue  on  its  merry  way. 

V 

return; 

1 


. . . 

•  ROUTINE:  missile_hydra_stop  • 

•PARAMETERS:  rkt  -  Pointer  to  a  _HYDRA_ROC3CET_  structure  • 

•  that  is  to  be  stepped.  • 

•  RETURNS:  none  • 

•  PURPOSE:  Stops  Ore  flight  a  HydraTO.Rocket  • 

•  Stops  telling  the  world  about  said  Rocket  • 

•  and  frees  up  the  Rocket  for  another  launch.  • 

. . I 


Static  void  missile_hydFa_stop(  rkt ) 

HYDRA  ROCKET  •rkt; 

{ 

BALUSnC.MISSILE  •bmptr; 
inti; 

bn^tr  =  &<  rkt->bmptr ); 

/• 

•  Tell  the  world  to  stop  worrying  about  this  missile  then  release  the 

•  memory  for  use  by  other  missiles. 

•/ 

mis8ile_util_oomm_stop_missile<  bmptr,  MSL_TYPE_BALLISTIC ); 
#if  DEBUG 

printfC  "stop::  T:  %d  Rkt:  %d  Pos:  %121f  %121f  %121f\n", 
bmptr->tinne,  bmptr->missile_id,  bmptr->location[0], 
bmptr->location(1],  bmptr->locationl2] ); 

#endif 

/• 
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*  Mark  rocket  to  be  Removed 

•/ 

bn^tr->state  =  HYDRA_REMOVE; 

} 

static  void  missile  hydra_purge  free_missiles() 

{ 

inti; 
i  =  0; 

whilef  i  <  rkts  in_flight ) 

I 

if(  hydra_fly(i]->bmptr  .state  ==  HYDRA_REMOVE ) 

{ 

/• 

•  Swap  -BAD-  rocket[i]  with  -LAST-  rocket[rkts_in_flightl 

•  Cut-off  (now  BAD) —LAST— rocket 

•  Check  (now  Good)  rocket[i] 

•/ 

hydra_fly[i]->bmptr3tate  =  HYDRA_FREE; 
ricts_in_flight— ; 

hydra_fly(il  =  hydra_fly(rkts_in_flightl; 
hydra  flyfrkts  in_flight]  =  0; 

) 

else 

/• 

•  Check  next  rocket(i4-l] 

•/ 

i-H-; 

) 


void  mbmaK  mat ) 

T  MAT  pro  mat; 

( 

inti,); 

for(  i=0;  i<3;  i++ ) 

{ 

for(i=0;J<3;)++) 
printf("  %1.4If",mat(iH|l); 
printf("\n"); 

) 

) 

void  mbmat  nan(  mat ) 

T_MAT  PTRmat; 

( 

inti,}; 
union  foo 
( 
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REALdf; 
long  112]; 
lx; 

for(  i=0;  i<3;  i++ ) 

{ 

for(p0;j<3;j++) 
printf( "  %1.4If  ",  inat[i][j] ); 
printf( 

foi<  i=0;  j<3;  j++  ) 

( 

xdf  =  mat[i][j]; 

printf( "  0x%08x  0x%08x",  x.ltO],  xJ]ll ); 

) 

printf(  "\n" ); 

1 

1 

void  inbm(  n.  msg ) 
intn; 

charmsgfl; 

{ 

printf(  "BM:  %d  ->  %s\n",  n,  msg ); 


void  inbfl(  n,  msg ) 

REALn; 

charmsgll; 

I 

printf(  "BM;  %6.41f  ->  %s\n",  n,  msg ); 
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The  following  appendix  contains  the  source  code  listing  for 
rwa_hydra.c  for  convenience  in  document  maintenance  and 
imderstanding  of  the  CSU. 
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/•$Headen  /a3/adst-cm/RWA/sinmet/vehide/rwa/src/RCS/rwa_hydra.c,vl.l  1992/09 
/30 17:0258  cm-adst  Exp  $  •/ 

/• 

*$Log:rwa  hydni.c,v$ 

*  Revision  1.1  1992/09/30  17:02:58  cm-adst 

*  Initial  Version 

•/ 

static  char  RCS_IDn  =  "SHeaden  /a3/adst-cm/RWA/simnet/vehide/rwa/src/RCS/rwa_ 
hydra.c,v  1.1 1^/09/30  17K)258  cm-adst  Exp  $"; 

. . 

*  Revisions: 

*  Version  Date  Author  Title  SP/CR  Number 


*  \2  10/23/92  R.  Branson  Data  Hie  Initiali- 

*  ration 

*  13  10/30/92  R.  Branson  Added  pathname  to  data 

*  directory 

. . . . / 


/ . . . . . 

SP/CR  No.  Description  of  Modification 

Hard  coded  defines  changed  to  array  elements. 
Characteristics/parameter  data  array  added. 

Added  file  reads  for  hydra  rocket  characteristics/ 
parameters. 

Added  "/sunnet/data/"  to  each  data  file  pathname. 


/ . 

•SYSTEM  NAME:  rwa  • 

•FILE:  rwa  hydrax  • 

•AUTHOR:  KrisBartol  • 

•  » 

•  SIMNET  simulation  of  Hydra70  Rocket  • 

*  • 

•  Copyright  (c)  1990  BBN  AdvaiKed  Simulation  Division. 

•  All  rights  reserved.  • 

•  • 


fiiurlude  "simstdio.h'* 


/ 
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#include  "sim_types.h” 
#indude  "sin»_d^  J»" 
#indude  "sim.macros.h" 
#include  "basic.h" 

#include  ”mun_type  it" 
#indude  "veh_typB.h" 

#include  ’libmatrix.h” 
#indude  libmath.h" 
#include  librotateJi” 
#include  1ibtuiTCt.h" 
#include  libhulLh** 
#include  libkinJt" 
#include  "libdg.h" 
#include  ”libinr^.h” 
#include  libmap.h" 
#include  "Ubnrussile.h” 
#include  Tibmiss_dfo.h" 
#include  "rkt_hydra.h" 

#include  "rwa_kinemat  Ji" 
#include  ‘Vwa.weapons.h” 
#include  "rwa.meter  Jt" 
#include  *Vwa_config.h" 


«define  DEBUG  0  /»  debugging  b  ON  V 

«defineLEFT  0 
«define  RIGHT  1 

#defineNUM_ROCKETS_LAUNCHED_PER_TICK  2 
/•/ 

*  Define  rocket  characteristics. 

/V 

#define  HYDRA  LAUNCHER_POS_X  hydra_rkt_chait01 
#define  HYDRA.LAUNCHER  POS_Y  hydia_rkt_char(l] 

#define  HYDRA_LAUNCHER_POS_Z  hydra_rkt_chai(2) 

*  Articulation  Limits  are  44  to  -15  degrees  but  are  adjusted  to 

*  419  to  -15  degrees  for  simulation's  fixed  OTW  retide 

0  00000  j 

#define  SOVIET  ARTICULATIW  ( mil_to_rad(hydra_rkt_char(3])) 
#define  HULL  l^G  5  PITCH  ( deg_to_rad(hydni_rkt_char(4))) 
#define  ARTKfuLATiON.MAX  ( deg_to_rad(hydra_rkt_charl51)) 

#define  ARTICULATION_MlN  ( deg_to_rad(hydra_rkt_charl6l)) 

/•/ 
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*  Hydra  rocket  characteristic  parameters  initialized  to  default  values. 

/V 

static  REAL  hydra_rkt  charfT]  = 

( 

4.5,  /*  hydra  launcher  position  X  */ 

05,  /•  hydra  launcher  position  Y  •/ 

-2.0,  /*  hydra  launcher  position  Z  */ 

104.0,  /*  mUs  of  Soviet  articulation  V 
-55,  /*  degrees  of  hull  negative  pitch  */ 

195,  /*  degrees  of  maximum  articulation  */ 

-15.0  /*  degrees  of  minimum  articulation  */ 

); 


ROTATE_ELEMENT_DEF  (articulation_element); 
ROTATE_ELEMENT_DEF  (pylon_L_element); 

ROTATE_ELEMENT_DEF  (pylon_R_eIement); 

static  HYDRA_ROCKET  hydras[MAX_HYDRATO_ROCKET  + 1]  =  { 0 }; 

static  VehiclelD  null_VehicleID; 

static  int  flight_time;  /•  Tune  Of  Flight  for  ballistic  trajV 

static  REAL 

super.elevation,  /*Adj  angle  for  ballistic  trajV 
taiget.range;  /•  Range  by  which  to  calculate  ballistics  */ 

static  ObjectTypeammo.type;  /*Ammo_Type  of  rockets  to  be  laundiedV 
static  int  warhead.class;  /*  one  of  ( HE  I  MPSM  I  FLECHETTE  ]  •/ 

static  int  pylons.set;  /•  TRUE  when  pylon  articulation  is  complete  */ 

static  int  I^_rocket_lauiKh;  /*  TRUE ->  launch  left  rocket  •/ 
static  int  right_rocket_lauiKh;  /•  TRUE  — >  lauiKh  right  rocket  */ 

static  VECTOR  left_lauiKher_pos  =  { 45, 0.0, 0.0 ); 
static  VECTOR  right_lautKher_pos  =  { 45, 05, 05 ); 
static  VECTOR  articulation_pos  =  { 0.0, 05,  -2.0 ); 


extern  REAL  weapons_get_rocket_rai>ge(); 
extern  REAL  kinennatics_get_true_airspeedO; 
extern  void  mbnuK); 
extern  void  mbmat_nan0; 
extern  void  mbvecO; 

ROTATE_ELEMENT  *articu]ation() 

( 

retum(  ^articulation  elenrent ); 

) 

ROTATE  ELEMENT  *pylon  L() 

{ 

retum(  icpylon_L_element ); 
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ROTATE  ELEMENT  •pylon.RO 

{ 

retumf  Apylon  R  element ); 

) 


vend  hydra  launch  rocketJeftO 

{ 

left  rocket  launch  =  TRUE; 

) 

void  hydra_launch  rocket_rightO 

( 

right  rocket_launch  =  TRUE; 

) 

int  hydra_]aunch_rocket(  launch_from_right ) 

int  launch.from  right;  /•  0  =  left-side  (n^ ::  1  =  ri^t-side  (pos)  •/ 

{ 

T_MAT_PTR  launch_orient; 

VECTOR  launch  velocity; 

REAL 

*launch_point, 

se.angle, 

]ead_an^e; 

/*  get  launch_point  &  launch.orient  */ 
if(  launch  from_right)  /*  launch  from  right  */ 

{ 

laundi_point  =  rotate_get_loc(  world(),pyIon_R() ); 
launch  orient  =  rotate _get_mat(  pylon_R0,  woridO ); 

1 

else 

{ 

launch_point  =  rotate_get_loc(  worldO,  |^lon_L() ); 
launch  orient  =  rotate_get  mate  pylon  L(),world()); 

) 

#if  DEBUG 

if(  mat_checkGaunch_orient)  =  FALSE ) 
mbmat_nan(  launch_orient ); 

#endif 

if(  !missile_hydia_fire(  warhead_class,  ammo_type, 
launch_point,  launch.orient, 

(kinematics _get  true  airspeed()/15)  /*init  speed*/)) 

( 

«if  DEBUG 

printff  "No  memory  in  inissile_comm  for  HYDRANn"); 

#endif 

printff  "Rocket  lauiKh  failedNn" ); 
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retum(  FALSE ); 

) 

retum(  TRUE ); 

1 


int  hydra_pylons_are_set() 

{ 

retum( pylons  set); 

) 


void  hydra_set_pylon_articulation(  WAS_position ) 
int  WAS  position; 

{ 

MUNmON.DATA  •mun.data; 

int  flight  time;  /*  time  of  flight  to  fly  _range_  meters  */ 

REAL 

range,  /*  range  to  target  •/ 

super_elev,  /*  super  elevation  angle  for  trajectory*/ 

dispersion;  /*  dispersion  an^e  for  trajectory  */ 

/• 

•  Given  _range_  &  _ammQ_type_ :: 

*  *  calculate  aiKl  return  super.elev  A  dispersion  arrgles 

*  *  calculate  attd  set  Time-Of^Flight  timer 

•  *  set  _arruno_type  of  next  rocketCs)  to  be  fired 

V 

mun_data  =  rwa  config  get  was  munition  info  (WAS_position); 
anuiK>.type  =  mun_data->munition_type; 

if  (mun_data->code  !=  MUNmON_ROCKET) 

/•  bombs,  for  example  */ 
retunv 


switch(mun  data->data.rocket.warhead) 

( 

caseWARHEAD.HE: 
warhead.dass  =  RCX!KET_HE; 
break; 

case  WARHEAD.MPSM: 
warhead.class  =  RCX!KET_MPSM; 
break; 

case  WARHEAD.FLECHETTE: 
warhead.dass  =  ROCKET_FLECHETTE; 
break; 
default: 

printf(  "hydra_set_artic:  unknown  warhead  %d  for  WAS  %d\n", 
mun_data->data.rocket.warhead,  WAS_position ); 
break; 

} 

/• 
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*  Get  rocket  range  &  calculate  SuperElevation  and  Dispersion  angles 

V 

pylons.set  =  FALSE; 
if(  mun_data->data.rocket.articulation ) 
range  =  weapons_get_rocket_ninge(); 
else 

range  =  (REAL)(mun_data'>data.rocketflyout_range); 

/• 

•Set  pylon  Super  Elevation  angle  A  pylon  Dispersion  angle 

•/ 

inissile_hydni_set_pylon_articulation(  range,  wari\ead_class,  &flight_time, 
&super_elev,  Adispersion ); 
super_elev  +=  HULL_NEG_5_Pn’CH; 
rotate_aet_angle(  articulationO,  super_elev ); 
rotate_set_angle(  pylon_R(),  (-  diqsersion) ); 
rotate  set  angle(  pylon_L(),  dispersion ); 

) 


void  hydra  config_rockets() 

{ 

MUNmCX^I_DATA  •mun_data; 
inti; 

for(  1  =  0;  i  <  MAX.WAS.POSITIONS;  1++ ) 

( 

if{  (munjdata  =  rwa_config_get_was_munition_info(  i ))  =  NULL ) 
continue; 

lf(mun  data->code " MUNTnCX^  ROCKET) 

{ 

missile_hydra_set_speed_factor 
( (REALKniun_data->data.rocket.^)eed_factor) ); 
nussile_hydra_3et_max_range_liinit 
( (REALKmun  data->data.rocketflyout  range) ); 

} 

) 

) 

void  hydra  init  () 

{ 

int  i; 

int  data.tmpjnt; 
float  data_tmp; 
char  descript[64]; 

FILE  •fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  rwa_hydra.c  READ  FROM  FILE  •/ 
fp  =  fopen("/simnet/data/rwa  hydrxl",V); 
if(fp==NULL){ 

fprintffstderr,  "Cannot  open  /sinuiet/data/rwa_hydr.d\n"); 
exitO; 
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} 

rewind(fp); 

/*  Read  array  data  */ 
i=0; 

while(fscanf<fp,"%r,  &data_tmp)  !=  EOF){ 
hydia_rkt_char(il  =  data_tmp; 
fgets(descript,  64,  fp); 

/•  printfrhydra_rkt_dur(%3d)  is%l  1 3f  %s”,  i, 

hydra_Tkt_charfil,  desaipt);  */ 

++i; 

) 

fcIose(fp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  rwa_hydra.c  READ  FROM  FILE  •/ 

left_launcher_posJ01  =  HYDRA_LAUNCHER_POS_X; 
right.launcher_p(ko]  =  HYDRA.LAUNCHER  PCS  X; 
articulation_posIll  =  HYDRA  LAUNCHER_POS_Y; 
articulati(m_pos{2]  =  HYDRA_LAUNCHER_POS_Z; 

if(!rotateJnit_eleinent(  &articulation_eleinent,  hullO, 

1.0, 0.0, 0.0, 0.0, 

ARTICULATION.MTN,AR.-nCULATION  MAX,/*TWO  VPI,/*rate*/ 
OAHYDRA_LAUNCHER_POS  Y,  hydra  launch^  POS  Z)) 

{ 

printR  "Rotate.Init  Element:  articulation  element  FAILEDNn” ); 

) 

rotateJnit_eIement(  Apylon  L  element,  articulationO,  0.0, 0.0, 1.0, 0.0, 

-TWO_PI,  TWO  PI,  TWO  PI,  /•rate*/ 

-HYDRA_LAUNCHER_F^_X,  04  0/) ); 
rotatejnit.elementi  4cpyIon_R_eIement,  artia^tionO,  04  0.0, 1.0, 0.0, 

-TWO  PI,  TWO  PI,  TWO  PI, /•rate*/ 

HYDRA.LAUNOIER.POS  X,  0.0, 0^1); 
mis8Ue_hydraJnit(  hydras,  MAX_HYDRA70_ROCKET  ); 
missile.hydra  set  pylon  position  offsets!  HYDRA  LAlJNCHER_POS_X, 

HYDRA  LAUNCHER  POS  Y, 

HYDRA_LAUNCHER_POS_Z ); 

hydra_oonfig_rockets(); 
left_rocket_launch  =  FALSE; 
right_rockrt_launch  =  FALSE; 
pylons  set  =  FALSE; 

) 


void  hydra  simuK) 

{ 

missile_hydra_fly_rockets(); 
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if(  !pylons_set ) 

{ 

pylons_set  =  TRUE; 
rotate_set_no_rotate(  pylon_R()  ); 
rotate_set_no_rotate(  pylon_L() ); 
rotate  set_no  rotate(  articulationO ); 

1 

else 

{ 

if(  left_rocket_launch ) 
if(  hydra_Iaundi_rocket(  LEFT ) ) 
Ieft_rocket_launch  =  FALSE; 
if(  right_rocket_launch ) 
if(  hydra_launch_rocket(  RIGHT ) ) 
right  rocket_launch  =  FALSE; 

) 


void  mbvec(  str,  vec ) 
char  •str; 

VECTOR  vec; 

( 

printf(  "%s  [  %1  Alf  %1.4lf  %1.41f  l\n", 
str,  vedXl,  vectYJ,  vec(Z] ); 

) 
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The  following  appendix  contains  the  source  code  listing  for 
sub_flech.c  for  convenience  in  document  maintenance  and 
imderstanding  of  the  CSU. 


-0-1  - 


22  January  1993 
Reference  #W003036 
Rev.  0.0 


Appendix  O  -  Source  Code  Lifting  for  aub_flccluc 

I*  SHeader.  /a3/adst-cm/RWA/simnet/vehicle/Iibsrc/Iibnus3ile/RCS/sub_flechx,v  1 
.1  1992/09/30 163952  cm-adst  Exp  $  •/ 

/• 

*  $Log:  sub_flech.c,v  $ 

*  Revision  1.1  1992/09/30  16:3952  cm-adst 

*  Initial  Version 

V 

static  char  RCS  IDQ  =  "$Header.  /a3/adst-cm/RWA/simnet/vehide/IibsFc/libmissiI 
e/RCS/sub_nechx,v  1.1 1992/09/30 165952  cm-adst  Exp  $"; 

/■***”»*»******■ . . . 

*  Revisions: 

*  Version  Date  Author  Title  SP/CR  Number 


12  10/23/92  R.  Branson  Data  Hie  Initiali¬ 

zation 

15  10/30/92  R.  Branson  Added  pathname  to  data 

directory 

1.4  11/25/92  R.  Branson  Chaitged  %i  to  %d 

. . 


SP/CR  No.  Description  of  Modification 


Hard  coded  defiires  dumged  to  array  elements. 
Characteristics/paFameter  data  array  added. 

Added  file  reads  for  sub.flechette  characteristics/ 
parameters  aixl  fledrette  speed  coefikients. 

Added  "/simnet/data/”  to  each  data  file  pathiuime. 

. . 


FILE:  sub_flech.c  * 

AUTHOR:  Kris  Bartol  • 

MAINTAINER:  Kris  Bartol 

PURI*OSE:  This  file  contains  routines  whidr  simulates  * 
the  behavior  of  sub-mimitions  of  type  * 
munition  US  Fledrette  60.  * 

HISTORY:  10/06/90  kris  • 
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•  Copyright  (c)  1989  BBN  Systems  and  Technologies,  Inc. 

•  All  rights  reserved.  * 

»  • 


#include  "stdio.h” 

#include  "math.h” 

#include  "sim_types.h" 

#include  "sim_dihsJi" 

#include  "basich" 

#include  "mun_type  J\" 

#include  Tibhull.h” 

#include  Tibimps.h" 

#include  1ibkin.h” 

#include  1ibmath.h” 

#include  *libmap.h" 
tinclude  Tibmatrix.h” 

#include  Tibmiss_dfn.h" 

(Hnclude  1ibnuss_loc.h” 

#include  "rkt.hydra.h" 

#define  DEBUG  0  /*  debugging  is  */ 

#define  INVEST_DIST_SQ  sub.flech.charfOl 
#define  FUZE_D1ST_SQ  sub.flech.charClJ 
#define  FLECHETTE_SPEED_DECf  sub_flech_poIy_deg 

/V 

*  Sub_flechette  characteristic  parameters  initialized  to  default  values. 

/V 

static  REAL  sub_flech_char[3]  = 

{ 

10000.0,  /•  (100  mr2  ::  max  speed  <100  V 
30625,  /•  (17.5  mr2:;flechettes  fly 

in  a  cylinder  with  a  radius 
of  175  m  and  length  of  750  m  •/ 

FLECH  60  MAX  RANGE  /•  darts  fly  total  of  750m  •/ 

); 

/V 

*  The  following  term  sets  the  order  of  the  polynonual  used  to  determine 

*  the  speed  of  the  flechettes. 

/•/ 

static  int  sub_flech_poly_deg  =  3; 


/•/ 

*  Coefficients  for  the  speed  polynomial  for  flechettes  initialized 
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*  to  default  values. 

/V 

static  REAL  flechette  speed_coefI5]  = 

{ 

41.75,  /‘a.O-in/tick  •/ 

-0.20397254,  /•  a_l  -  m/tick/m  •/ 

0XXX)22724278,  /*  a_2  -  in/tick/m''2  V 

-0.00000008633,  /•  a_3  -  m/tick/m''3  */ 

Oi) 

1; 

static  VECTOR  zero_vector  =  { 0.0, 0.0, 0.0 ); 
static  VehiclelD  null_VehicleID; 


/*  this  routine  is  invoked  by  the  rva  for  each  vehicle  to  see  if  it 
*  should  be  included  on  the  flechette  valid  vdticle  list 

•/ 

flechette_is_valid_veh  (veh) 

VehicleAppearanceVariant  *veh; 

{ 

retum(  /•  is  alive  vehicle  (veh->appearance)  */  TRUE ); 

1 


. . 

*  ROUTINE:  inissile_flechette_init  * 

*  PARAMETERS:  bmptr  -  Pointer  to  a  _BALUSTIC_MISSILE_ 

*  structure  that's  ammo-type  is  Flechette  * 

*  i.e.  it  releases  sub-munitions  of  type  * 

*  _munition_US_Flechette_60_. 

*  sub.mim  -  Pointer  to  sub-mimition  structure  * 

*  associated  with  _bmptr_.  * 

*  init.speed  -  Terminal  sp^  of  rocket  * 

*  initial  speed  of  flediettes.  * 

*  RETURNS:  iKrne  * 

*  PURPOSE:  Initialize  rocket's  _bmptr_  to  behave  according  * 

*  sub-munitions  type  of  * 

*  munition  US  Flechette_60  .  * 

. . . . . . 

void  missile  flechette  iniK  bmptr,  sub  mun,  init.speed ) 
BALLISTIC  "missile"  •bmptr; 

BALLISTIC_SUB_MUN  •sub.mun; 

REAL  init  speed; 

( 

BALUSnC.CANISTER  ‘dart; 

VECTOR  velocity; 

int  i; 
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int  data_tmpjnt; 
float  data.tmp; 
char  descript[64]; 

FILE  •fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  sub.flechx  READ  FROM  FILE  */ 

fp  =  fopenC/simnet/data/sub  flec.d",V); 
if(fp==NULL){ 

fprintflstderr,  "Cannot  open  /sinmet/data/sub_flec.d\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r',  Adata_tmp)  !=  EOF){ 
sub_flech_char[i]  -  data_tmp; 
fgetsldescript  64,  fp); 

/•  printfrsub_flech_char<%3d)  is%l  1 3f  %s”,  i,  sub_flech_char[il, 

descript);  •/ 

++i; 

1 

fcloseffp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  sub_flech.c  READ  FROM  FILE  V 

/•  DEFAULT  FLECHETTE  SPEED  DATA  FOR  sub_flech.c  READ  FROM  FILE  •/ 
fp  =  fopen("/sininet/data/flec  spdxi",V); 
if(fp=NULL){ 

fprintffstderr,  "Cannot  open  /sinutet/data/flec_q3dxl\n"); 
exitO; 

) 

rewind(fp); 

/*  Read  degree  of  polynomial  */ 

fscanf(fp,"%d",  &data_tmp_int); 

FLECHETTE_SPEED_DEG  =  data_tmp_int; 
fgetsfdesaript,  64,  fp); 

/•  printf("sub_flech_poIy_deg  is%3d  %s",  FLECHETTE.SPEED.DEG, 
descript);  •/ 

/*  Read  array  data  */ 
i=0; 

while(fscanf(fp,"%r',  Adata.tmp)  !=  EOF)( 
flechette_speed_coefIi]  =  dala_tmp; 
fgets(d«script,  64,  fp); 
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/•  printfrflechette_^jeed_coef(%3d)  is%113f  %s",  i, 
flechette_speed_coefIil,  descript);  */ 

•f+i; 

) 

fclose(fp); 

/•  END  DEFAULT  BURN  SPEED  DATA  FOR  sub_flech.c  READ  FROM  FILE  */ 

bniptr->tinne  =  0; 

dart  =  &{sub_mun->dart); 
dart->distance  =  0.0; 
dart->init_speed  =  init_speed; 
dart->pptr  =  NULL; 

vec_s<ale(  bmptr->orientation,  init_speed,  velocity ); 
nrus8ile_util_conun_reIease_sub_munition(  bmptr,  MSL_TYPE_BALLISTIC, 
sub_mun,  SUB_MUN_CANISTER, 
zefD_vector,  velocity ); 

«if  DEBUG 

printf(  'InitSpeed  %1.21f  Dist  %1.21An",  init_^3eed,  dart->distance ); 

#endif 

1 


ROUTINE:  missile  flechette  fly  * 

PARAMETERS:  bmptr  -  Pointer  to  a  _BALLIST1C_MISSILE_ 
structure  that's  airuno-type  is  Flechette  * 
ije.  it  releases  sub-munitions  of  type  * 
_munition_US_Flechette_60_.  * 

sub.mun  -  Pointer  to  sub-munition  structure  * 
associated  with  _bmptr_.  * 

veh_list  -  Vehicle  list  ID.  • 

RETURNS:  none.  • 

PURP*OSE:  Simulates  the  flying  of  munition-type  * 
_munition_US_Flechette_60_.  * 

-1200  2"  lead  darts  are  released  and  fly  a  * 
cylindrical  pattern  35  m  in  diameter ...  * 

Heirce,  we  simulate  the  flechettes  with  ONE  * 
dart  flown  do%vn  the  center  of  the  cylinder  * 
and  give  it  a  175  m  proximity  fuze.  If  the  * 
proximity  fuze  detonates,  we  impact  the  * 
recipient  vehicle  aiul  continue  the  lone  dart's  * 
flyout  to  a  distance  of  750  m.  At  this  point,  * 
the  flechette  rouiuis  have  lost  the  montentum  * 
and  fall  to  the  ground  -  the  rocket  is  * 

terminated.  * 


int  missile  flechette_fly(  bmptr,  sub.mun,  vehjist ) 
BALLISnC.MISSILE  •bmptr; 
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BALLISnC_SUB_MUN  •sub_mun; 
intveh  list; 

{ 

BALUSnC.CANISTER  Mart; 

VECTOR  velocity; 

dart  =  &(sub  mun->dart); 

/• 

•SPEED*/ 
bmptr->q9eed  = 

ini8sile_util_eval_poly(  FLECHETTE_SPEED_DEG,  flechette_speed_coef, 
dart->distance )  +  dart->init  speed; 

/• 

•DISTANCE*/ 

dart->distance  +=  bmptr->speed; 
if(  dart->distance  >=  sub_flech_chai{2] ) 
retum(  FALSE ); 

/• 

•VELOCITY*/ 

vec  scale(  bmptr->orientation[Y],  bmptr->speed,  velocity ); 

/• 

•  POSmCMM  •/ 

vec  add(  bmptr->Iocation,  velocity,  bmptr>>location ); 

/• 

•PROX.FUZE*/ 
if(  nnissile_fuze_aIl_prox(  bmptr, 

MSL.TYPE.BALUSnC,  PRQX_FUZE_ON_ALL_VEH, 
AfnuII.VehidelD),  &(dart*>pptr), 
vehjist,  INVEST.DIST.Sa  FUZE_DIST_SQ ) ) 
do 
I 

/•DETONATION?*/ 

if(  missile_util_comin_check_sub_mun(  bmptr,  MSL_TYPE_BALLISTIC, 
sub.mun,  SUB_MUN_CANISTER )) 
niissile_util_comm_release_sub_munition(  bmptr, 
MSL_TYra_BALLISTIC, 
sub  mun, 

SUB_MUN_CANISTER, 

2ero_vector, 
velocity ); 

)  while(  dart*>pptr  !=  NULL  && 

mis8ile_fuze_detonate_prox(  bmptr,  MSL  TYPE_BALLISTIC, 
«dart->pptr),  FUZE_DIsf_SQ,  0 )); 

retum(  TRUE ); 
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The  following  appendix  contains  the  source  code  listing  for 
sub_m73.c  for  convenience  in  document  maintenance  and 
understanding  of  the  CSU. 
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Appendix  P  -  Source  code  listing  for  sub_m73.c. 

The  following  appendix  contains  the  source  code  listing  for 
sub_m73.c  for  convenience  in  document  maintenance  and 
imderstanding  of  the  CSU. 
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/*  SHeaden  /a3/adst-cnn/RWA/sinuiet/vehide/libsrc/libmi8sile/RCS/sub_m73.c,v  1.1 
1992/09/30 163952  cm-adst  Exp  $  V 

/• 

•  $Log:  sub_m73.c,v  $ 

•  Revision  1.1  1992/09/30  16:3952  cm-adst 

*  Initial  Version 

V 

static  char  RCS  IDD  -  "SHeader  /a3/adst-cin/RWA/sinmet/vehicle/Iibsrc/Iibmissil 
e/RCS/sub_m^Av  1.1 1992/09/30 165952  envadst  Exp  $"; 

/** . . . 

* 

*  Revisions: 

% 

*  Version  Date  Author  Utle  SP/CR  Number 


*  15  10/23/92  R.  Branson  Data  File  Initiali- 

*  zatiem 

*  15  10/30/92  R.  Branson  Added  padmame  to  data 

*  directory 


/ 


. . . 

SP/CR  No.  Description  of  Modification 

Hard  coded  defines  changed  to  array  elements. 
Characteristics/parameter  data  array  added. 

Added  file  reads  for  sub_m73  characteristics/ 
parameters. 

Added  "/simnet/data/”  to  each  data  file  pathname. 

. . 


•  FILE:  sub_m73x  • 

•  AUTHOR:  Kris  Bartol  • 

•MAINTAINER:  Kris  Bartol 

*■  • 

•  PURPOSE:  This  tile  contains  routines  which  simulates  * 

•  the  behavior  of  sub-munitions  of  type  • 

•  munition  US  M73.  • 

•HISTORY:  10/06/90  kris 

•  » 

•  Copyright  (c)  1989  BBN  Systems  and  Technologies,  Inc.  " 
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•  All  rights  reserved. 


#include  "stdioJi" 

#include  "math  Ji” 

#include  "sim_types.h" 

#include  "sim_d^.h" 

#include  "basic.h" 

#include  "mun_type.h" 

#include  "Ubmath.h” 

#include  "libnnap.h" 

#include  "libmatrix.h" 

#include  "libmiss_dfn.h" 

#include  "libmiss_Ioc.h" 

#indude  "rkt_hydra.h" 

#define  DEBUG  0  /•  debugging  is  <»J  */ 

/V 

*  Sub  M73  characteristic  parameters  initialized  to  default  values. 

/V 

static  REAL  sub  m73  chat{31 « 

{ 

0X0266667,  /•  75%  of  gravity  -  75%  •  9Bm/sec^^2/225  ticks''^2*/ 

M73  lOOT  ANGLE  X,  /*  bomblettes  fall  w/  -•-/•  8S  deg  angular  displ  */ 
M73  FOOT  ANGLE  Y  /•  bomblettes  fall  w/  +/- 1235  deg  angular  displ  V 
); 


static  REAL  zero_velocity[3]  =  ( 0.0, 0.0, 0.0 ); 
static  void  missile_m73_get_impact  0; 

•  ROUTINE:  missile_m73_init  * 

•  PARAMETERS:  bmptr  -  Pointer  to  a  _BALLISTIC_M1SSILE_ 

•  structure  that's  ammo-type  is  MPSM  * 

•  i.e.  it  releases  sub-munitions  of  type  * 

•  _mun!tion_US_M73_.  • 

•  sub.mun  -  Pointer  to  sub-munition  structure  * 

associated  with  _bmptr_.  • 

•  speed  -  Terminal  speed  of  Rocket  at  detonation.  * 

•  RETURNS:  none 

•  PURPOSE:  Initialize  rocket's  _bmptr_  to  behave  according  • 

•  sub-munitions  type  of  munition  US_M73_.  • 


void  missile_in73_init(  bmptr,  sub.mun,  ^xed ) 
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BALUSnC.MISSILE  •bmptr; 

BALLISnC_SUB_MUN  •sub_mun; 

REAL  speed; 

{ 

VECTOR  impact_pt; 

VECTOR  displaoenrient; 

int  i; 

float  data.tmp; 
char  descript(64]; 

RLE  •fp; 

/•  DEFAULT  CHARACTERISTICS  DATA  FOR  sub_m73.c  READ  FROM  FILE  */ 
fp  =  fopenr/siinnet/data/sub_m73.d","f”); 
if(fp==NULL)l 

fprintffstderr,  "Caimot  open  /sinmet/data/sub_m73.d\n**); 
exitO; 

} 

rewind(fp); 

/*  Read  array  data  */ 
i=0; 

while(fecanf(fp,”%r,  &data_tmp)  !=  EOT){ 
sub_m73_char(il «  data_tmp; 
fgetsCdescript,  64,  fp); 

/•  printfC'sub_rn73_char(%3d)  is%l  1 3f  %s",  i,  5ub_m73_char(i  J, 

descript);  •/ 

++i; 

) 

fcloseffp); 

/•  END  DEFAULT  CHARACTERISTICS  DATA  FOR  sub_m73x  READ  FROM  FILE  •/ 


bniptr->time  =  0; 
sub_inun->iinpact.tiiiier  =  0; 

sub_inun->iinpact.distance  =  speed;  /*  distance  rocket  travelled  last 
frame,  i.e.  before  detonation  */ 

r 

*  get  point  under  sub-munition  release  point 

•/ 

impact_pt(X]  =  bmptr->location[X]; 
impact_ptlY)  =  bir^>tr->locationrYJ  - 10; 
impact_ptizi  =  10.0; 

mis8ile_util_conrun_release_sub_munition(  bmptr,  MSL_TYPE_BALLISTIC, 
sub_mun,  SUB_MUN_IMPACT, 
impact_pt,  zero_velocity ); 
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•  ROUTINE:  missile_m73_drop  • 

•PARAMETERS:  bmptr  -  Pointer  to  a  _BALLISnC_MISSILE_  • 

•  structure  that's  anuno-type  is  MPSM  • 

•  ix.  it  releases  sub-munitions  of  type  • 

•  _munition_US_M73_.  * 

•  sub_mun  -  Pointer  to  sub-munition  structure  * 

•  associated  with  _bmptr_.  • 

•  RETURNS:  TRUE  if  time  of  drop  has  been  long  enough  to  • 

•  cause  sub-munitions  to  hit  the  ground.  * 

•  FALSE  otherwise.  * 

•  PURPOSE:  Simulation  of  the  dropping  of  munition-type  * 

•  munition_US_M73  rounds.  • 

. . 

Static  int  traj_up  =  TRUE;  /*  TRUE:  vector  UP  —  FALSE:  vector  down  */ 

int  missile_m73_drop(  bmptr,  sub_mun  ) 

BALLISTIC_MISSILE  ‘bmptr; 

BALLISTIC  SUB_MUN  ‘sub.mun; 

{ 

BALLISTIC_IMPACT  •impact; 

VECTOR  impact_pt; 

impact  s  A:(sub_mun->impact); 
if(  impact->timer  =«  0 ) 

{ 

if(  missi]e_util_oomm_  cck.sub_mun(  bmptr,  MSL_TYPE_BALLISTIC, 
sub  mun, SUB  MUN  IMPACT)) 

( 

if(  impact->distance  >  0.0 ) 
impact->timer  =  (int) 

((8  •  scaled_rarKl())  +  1.0  + 

(sqrt((1.9  •  impact->distance)  /  sub_m73_char(0]))); 
else 

impact->timer  =  -1; 

#if  DEBUG 

printfC  "Height  %1.41f  Time  %d\n", 
impact->distance,  impact->timer); 

#endif 

) 

else 

{ 

impact_pt(XJ  =  bmptr->]ocation[X); 
impact_pt(Yl  =  bmptr->location[Y]  - 10; 
if(  tTai_up ) 

impact _pt[Z]  =  bmptr->location[Z]  +  impact->distance; 
else 

impact_pt(Z]  =  10; 
tFaj_up  =  ( !  tnij_up )»' 
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nussile_utiI_conun_release_sub_munition(  bn^>tr,  MSL_TVTE_BALLISnC, 
sub_mun,  SUB_MUN_IMPACT, 
impact  pt,  zero_velodty ); 

} 

retum(  FALSE ); 

} 

else 

{ 

if(  bn^tr->time  <  impact->timer )  /•  wait  until  sub_mun's  */ 

I  /*  hit  the  ground....  */ 

bmptr->time  +=  1;  /*  incr  time  coimter  •/ 

retum(  FALSE ); 

) 

else  /•  ie.  time  ==  timer  */ 

{ 

if(  impact->timer  >  0 ) 

{ 

missile_m73_get_impact(  bmptr->location,  impact_pt, 
bmptr->launcher_C_workl, 
impact->distance ); 

missile_util_comm_release_sub_munition 
( bmptr,  MSL_TYPE_BALLISnC,  sub_mun, 

SUB  MUN  IMPACT,  impact  pt,  zero_velodty ); 

) 

/•  reset  time  counter  */ 
bmptr->time  =  0; 
rctum(TRUE); 

) 

} 


*  ROUTINE:  missile_m73_impact  * 

*  PARAMETERS:  bmptr  -  Pointer  to  a  _BALLISTIC_MISSILE_ 

*  structure  that's  ammo-type  is  MPSM  * 

*  i.e.  it  releases  sub-munitions  of  type  * 

*  _munition_US_M73_.  • 

*  sub_mun  -  Pointer  to  sub-munition  structure  * 


associated  with  _bmptr_.  * 

RETURNS:  FALSE  if  all  m73  have  impacted  the  ground.  * 
PURPOSE:  Simulation  of  munition_US  M73_  impacts.  * 


int  missile  m73  impact!  bmptr,  sub  mun ) 
BALLISTIC  M^ILE  •bmptr; 

BALLISTIC  SUB  MUN  •sub  mun; 

( 

BALLISTIC_IMPACT  •impact; 
VECTOR  impact_pt; 
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impact  =  &{sub_mun->impact); 
if(  impact->timer  <  0 ) 

{ 

#if  DEBUG 

printf(  "ignore  under  ground  detonationXn",  bmptr->inissile_id ); 
#endif 

retum(  FALSE ); 

) 

if(  bmptr->tin™e  <  1 ) 
impact->delay  =  0; 

else  /*  0  -  0.250  sec  delay  *! 

impact->delay  =  (intK250  •  scaled.randO); 


bmptr->time  +=  1; 

if(  missile_util_comm_check_sub_mun(  bmptr,  MSL_TYPE_BALLISnC, 
sub  mtm, SUB  MUN_IMPACT)) 

( 

/• 

*  send  _impact_  to  util_ball  k.  to  world 

*  fnissile_util_comm  impact  ball_sub_munition(  bn^>tr,  impact ); 

•/ 

impact->quantity  •=  1; 

/• 

*  get  NEXT  M73  impact  location  OR  stop 

V 

iff  impact>>quantity  >  0 ) 

{ 

missUe_m73_get_impact(  bmptr->location,  impact_pt, 
bn^>tr->launcher_C_worid, 
in^act->distance ); 

missile_util_comm_release_sub_munition(  bn^,  MSL_TYPE_BALLISnC, 
sub.mun,  SUB_MUN_IMPACT, 
impact^t,  zero_velocity ); 

retum(  TRUE  ); 

) 

else 

retum(  FALSE ); 

1 

else  /*  Didn't  get  an  impact  *! 

{ 

missile_in73_getjmpact(  biT^->location,  impact_pt, 
bmptr->lauitcher_C_world, 
impact-xlistance ); 

missile_utU_comm_rdease_sub_munition(  bmf>tr,  MSL_TYPE_BALLIST1C, 
sub.mun,  SUB_MUN_IMPACT, 
impact_pt,  zero.velodty ); 
if(  bmptr->time  >  impact->timer )  /*  time's  up  */ 

{ 

printf(  "MTS.SIMUL  timed-out:  %d  non-impacts\n", 
impact'>quantity ); 
retum(  FALSE ); 
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} 

retum(TRUE);  /*  keep  trying  */ 

J 


static  void  inissile_m73_get_impact(  release_pt,  impact_pt,  mCw,  height ) 
VECTOR  release_pt; 

VECTOR  impact_pt; 

T_MAT^PTR  mCw; 

REAL  height; 

{ 

VECTOR  detonation;  /•  Offset  Vector  in  World  Coords 
of  detonation  point  */ 

REAL  x,y; 

X  =  height  •  sin(deg_to_rad(  sub_n\73_charf  11  *  (030  -  scaled_rand()))); 
y  =  height  *  sin(deg_to_Tad(  sub_in73_char[21  *  (OJO  -  scaled_rand()))); 
detonationjX]  =  x  *  mCw[0][0]  -  y  *  mCwfOJUl; 
detonation[Y]  =  y  *  mCwfOKOJ  +  x  *  mCwlOHlj; 
detonationjZ]  =  -  height; 

/• 

*  Stretch  detonation  vector  to  ensure  intersection  with  ground /vehicle 

V 

vec  scale(  detonation,  13,  detoitation ); 

/• 

*  add  to  _release_pt  to  get  location  of  .impact  in  World  Coords 

*/ 

vec  add(  release  pt,  detonation,  impact  pt); 

1 
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